\ SEIfE 1 

* 
\ 

t 1 * GENERAL AUTOMATION, INC, AIL RJQHTS RESERVED 

2 ************************************************** 

3 * 

4 * PROGRAM NAME FpH-20 

5 * 

6 * MODEL NUMBER 8F02v 

7 * 

8 * purpose Fortran phase»2q 

9 * 

10 * PROGRAMMER DICK WALLMANN 

11 * 

12 ***************** REVISION LIST ************** 

13 * 

14 * RV DATE SCO 8Y REASON FOR CHANGE 

16 * 

17 * 01 11/16/70 NONE ^PH INITIAL RELEASE 

18 * 

19 **************************** ****** ********** ****** 
\^s 20 ************************************************** 

21 HDNG MPX FORTRAN ** DATA ALLOCATION 

22 ************************************************** 

23 *STATUS-VERSIQN 1, MODIFICATION 

24 *FUNCT ION/OPERATION 

25 * * SET UP AND PRINT VARlABL* ALLOCATIONS 

26 * * ALLOCATE RELATIVE STORAGE FOR ALL COMMON 

27 * AND INSKEL COMMON VARIABLES, 

f 28 * * ALLOCATES ALL STORAGE RELATIVE TO THE 

29 * BEGINNING OF THE OBJECT PKOGRAM AND ALLIGN* 

i 30 * ED ACCORDING TO ANY EQUIVALENCE STATEMENTS, 

31 * ASSIGNS ALL ALLOCATIONS ACCORDING TO THE 

32 * SPECIFIED PRECISION OF THfe PROGRAM. THE 

33 * SPECIFICATION CAN BE EXPLICIT OR IMPLICIT, 

34 * * PRINTS THE RELATIVE ALLOCATIONS OF THE 

35 * VARIABLES AS THEY ARE ALLOCATED *IF A 

36 * LISTING IS REQUESTED. 

37 * * THE 3UBPR0L0GUES HEADJNG tApH SUBROUTINE 

38 * IN THE PHASE RELATE THE SPECIFIC FUNCTION 
^ 39 * OR FUNCTIONS PERFORMED. 

40 * 

41 * P N T R Y B I N T <? «• 

42 * * NBQ IS THE LABEL OF T HE INITIAL ENTRy POINT, 

43 * H0We v ER*ENTRY TO T H £ PH A S fc Q C C U RRS AF T ER 

44 * EACH BRANCH To THE PRINTING PHASE* 

45 * 

46 *INPUT- 

47 * * the statement string 

48 * * the symbol table 

49 * * the fortran communications area 

50 * 

51 *OUTPUT- 

52 * * THE STATEMENT STRING 

53 * * THE SYMBOL TABLE 

54 * * THE FORTRAN COMMUNICATIONS AREA 

55 * * ALLOCATION MESSAGES ON THfe LIST PRINTER, 

56 * IF REQUESTED. 

57 * 

58 *EXTERMAL REFERENCES' 

59 * * SUBROUTINES- 
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85 

86 

87 

88 

89 



* 



ROLRX 



♦EXITS- 



PHASE 21 IS LOADED VIA HQ|,RX AND 
CONTROL IS PASSED TQ JT, 
ERRORS- 
OVERLAP- mf . mj _ 
PROCESSING 13 HALTED, PHASE 21 IS 
CALLED VIA ROLRX. ONLY OVERLAP ERRORS 
FROM PREVIOUS PHASES ARE DETECTED. 
SYNTAX- 
ERRORS NUMBER 
AMD PLACED ON 



* 

* 
* 
* 
* 
* 
* 
* 

* 

♦TABLES/WORK AREAS- 

* * THE STATEMENT STRING 

* * THE SYMBOL TABLE m k 

* * THE FORTRAN COMMUNICATIONS AREA 

* BuF+120, A 120 WORD MESSAGE BUILDING AND 

* OUTPUTTINQ AREA. 



65* 66 UR 

STRING, 



67 ARE DETECTED 
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91 
-9*~ 

9.3 

94 

95 

96 

97 

98 

99 
100 

101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 



♦attributes 
* * each 

* THE 

* 

♦notes-none 

*********** 
HDNG 
_ABS 

* 



subroutine is documentsd in full. 

HASE IS MONOLITHIC IN VERBIAGE 



*************************************** 
MPX FORTRAN ** PAU ALLOCATION 



-MEMRY 
PHSIZ 
OVERL 
FCOM 
PHNTB 
ROLRX 

LIO 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 

HDNG 

*******#**'* 

* 

* 



SYSTEM EQUATtS 
t*???-C<fi/l*r MAXIMUM CORE SIZE 

MAXIMUM PHASE SIZE 
PHASSS 2-29 START 
FORTRAN COMM, TABLE: 
PHASE TABLE 
INTERPHASE CALL 



4*320 

MEMRY-PHSIZ 

OVERL-22 

FCOM-56 

PHNTB-30 



/8 5 JOUS ENTRY 

MPX FORTRAN ** DATA ALLOCATION 

*************************************** 

FORTRAN COMMUNICATION AREA 



********** 

ORG 
SOFS 3SS 
EQFS 8SS 
SOFST BSS 
SOFNS BSS 
SQFXT 8SS 
SOFGT BSS 
EOFST BSS 
COMON BSS 
CSIZE BSS 
ERROR BSS 
FNAME BSS 
SORF BSS 
CCWD BSS 



**************************************** 



FCOM 
1 
1 
1 

1 
1 
1 
1 

1 
1 
1 
2 
1 
1 



fortran comm area 

start 0* string 

end of String 

start 0* symbol table 

start of non'stmnt nos, 

size qf'wqrk area 

SIZE OF CONSTANT AREA 
END OF SYMBOL TABLE 
HIGH COKE COMMON ADDR 
SIZE OF COMMON 
OVERLAP ERROR 
PROGRAM NAME 
SUBR J«> OR FUNC (+) 
CONTROL CARD WD 



i 
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120 * BIT 15 TRANSFER fRACE 

121 * BIT 14 ARITHMETIC TRACE 

122 * BIT 13 EXTENDED PRECISION 

123 * BIT 12 LIST SYMBOL TABLE 

124 * BIT 11 LIST SUbPRQQRAM NAMES 

125 * BIT 1j LIST SOURCE PROGRAM 

126 * BIT 9 ONEWqRU INTEGERS 

127 * BIT 3 PUNCH 

128 * BIT 7 NONPROCfcSS PROGRAM 

129 IOCS BSS 1 IOCS CONTROL CARD WORD 

130 * 

131 * SEE PHASE ONE FOR SIT HATTERS 

132 * 

133 DFCNT QSS 1 DEFINED FJLE COUNT 

134 * 

135 UCOMN BSS 2 INSKEL COMMON SIZE 

136 * 

137 ICCER BSS 2 IOCS CONTROL CARD ERROR 

138 * 

C 139 3SS 2 SYSTEM LOADER USE 

140 ************************************************** 

141 * 

142 * END OF FORTRAN COMMUNICATION 

143 * AREA 

144 * 

145 ************************************************** 

146 HDNG MPX FORTRAN'** DATA ALLOCATION 

147 ORG OVERL PHASEENTRY 

148 ************************************************** 

149 * 

150 * PRINT AREA 

151 * 

152 ************************************************** 

153 * 

154 * INFORMATION £OR SYSTEM LOADER 

155 * 

156 * THIS WORD JS U|ED TO HOtD THE: 

157 * VALUE FOR JNUEX REGISTER 3 

v_ i5 8 * SO AS TO ALLOW THE PRINT ROUT1N 

159 * TO RESfORE INDEX REGISTER 3 

£ 60 * AFTER CALLiNtf THE SYSTEM PRI^T 

161 * ROUTINE 

162 NEQ HDX IP010 SA^E XR* HERE 

164 ! THE FQLLQWjNii |S T H E PRINT 

:i 5 I a«ea part qf~which is used for 

166 * INITUL PROGHaM 6X EC UTed ONLY' 

167 * ONCE At THE *T*RT OF THE PHASE, 

168 DC *•* ySED WJTH TYPEWRITER 

169 WDCNT DC *»* PR INT A«EA WORD COUNT 

170 BUF EQU * BEGJNINU OF OUTPUT AREA 

171 * 

172 * SET INDEX REGISTER 3 TO POINT 

173 * AT THE LITERAL POOL AND 

174 * SUBROUTINES, 

175 IP010 LDX L3 X LOAD XR4 

176 STX 3 NEQ SAVE FOK PRINT ROUTINE 

177 * 

178 * INITIALIZE THE COMMON LIMITS 

' 179 * 
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18 LD ERROR CHECK FUR OVERLAP VIM 

181 B S C L EXIT,Z EXIT JF SO VIM 

182 LO L COMON INITIALIZE CSIZE WITH CQMQ 
1fi3 SfO L CSIZE 

184 LD 3 H3FFF-X INITIALS! JNSKEL LIMITS 

185 SfO L LCOMN 

186 SfO 3 LCS-X 

188 * INITIALIZE THE VARIABLE AREA 

t 89 * COUJT TO START ALLOCATION, 

190 LD L DFCNT PLACE DfcFjNE FILE SIZE 

191 SfO 3 VARCR-X IN VARCK 

192 * 

t 93 * SET THE CORRfeCT REAL VARIABLE 

194 * SIZE IN RSlZfe. 

195 LD L CCWD LOAD CONTROL CARD WORD 
t 9 6 3LA 13 PLACE PRECISION IN SIGN 
7 97 osC L * 2,- BRANCH IF STANDARD 

198 MDX L RSIZE.1 INCHAMENT RSIZE TO 3 

199 * 

20 * SET THE CORRfcCT INTEGER VARIABL 

201 * SIZE IN iSiZfe, 

202 ^ LD L CCWD LOAD CONTROL CARD WORD 
2Q3 SLA 9 PLACE ONE WORD INT IN SIGN 

204 BSC L * 2* Z BRANCH IF ONE WORD INTEGER 

205 LD 3 RSIZE-X SET REAL AND INTEGER SAME 

206 SfO 3 ISIZE-X 

fos * LOAD INDEX RfcGjSTE 1 TO LOOK FO 

2 9 * EQUIVALENCE STATEMENTS, 

210 LDX II SQFS LOAD XRl 

211 * 

o7 2 * TEST TO SEE iF STATEMENT IS AN 

2i3 * EQUIVALENCE STATEMENT. 

214 IP020 LD 1 LdAD |D WORD 

215 AND 3 HFBOO-X SAVE ONLY TYPE 

216 EOR 3 HASOO^X TEST FOR EQUIVALENCE 

2i7 BSC L IP03Q, - BRANCH JF EQUIVALENCE ST, 

218 * 

2J9 * TEST TO SEE JF STATEMENT IS AN 

220 * END STATEMENf. 

221 EOR 3 HB800-X TEST FOR END 

| 22 B S C L IPQ40, - BRANCH IF END STATEMENT 

224 * MOVE INDEX RfcGjSTER 1 TO THE 

225 * NEXT ID WORDi 

226 LD 1 LOAD ID WORD 

227 AND 3 HQ7FC-X SAVE STATEMENT NORM 

228 3RA 2 POSITION NORM 

229 SfO * 1 INITIALIZE MDX INSTRUCTION 

230 MDX LI *•* ADJUST IN0EX REGISTER 1 

231 MDX IP020 BRANCH 
oxo * 

233 * INITIALIZE THE START OF THE 

034 * EQUIVALENCE STATEMENTS IN INIT, 

235 IP 030 MDX 1 2 INCREMENT XRl BY 1 

236 STX LI INDIA 1 INITIALIZE JNIT ROUTINE 

237 * 

238 * SET ALLOCATIUN BITS TO REFLECT 
I39 # COMMON FOR EQUIVALENCE STATEMEN 
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240 * EVALUATION, 

241 LD 3 H2022-X PLACE ALLOCATION BITS 

242 STO 3 AL0C8-X IN ALOC« 

243 * 

244 IP040 LD ERROR LOAD ERROR INDICATOR 

245 BSC L EXJT,Z BRANCH i.F OVERLAP ERROR 

246 * 

247 * BRANCH TO THfc MAINLINE PROGRAM. 

248 IP999 BSC L MLQlO BRANCH 

24*? * 

250 * THIS IS THB HEADING -VARIABLE! 

251 * ALLOCATION*, 

252 TEXT DC /E500 V 

253 DC /C100 A 

254 DC /D900 R 

255 DC /C900 I 

256 DC /C100 A 

257 DC /C200 B 

258 DC /D300 L 

259 DC /G5Q0 E 

260 DC /4000 8LANK 

261 DQ /C100 A 

262 DC /D300 L 

263 DC /D300 L 

264 DC /D6Q0 

265 DC /C300 C 

266 DC /C100 A 

267 DC /E300 T 

268 DC /C900 I 

269 DC /D600 

270 DC /D500 N 

271 DC /E2Q0 S 

272 * 

273 * PRINT THE HEADJNQ -VARIABLE 

274 * ALLOCATIONS*; 

275 HD010 LDX L3 TEXT PLACE AUDHESS OF PRINT ARE 

276 SfX L3 AREA 

277 LgX 3 1Q PLACE WORD COUNT 

279 LDX L3 X° CNT RESTORE XK3 TO POINTER VAL 

280 BSI L PRINT CALL PRINT 

HI * SET HTEST SWjTGH TO INDICATE 

Jq3 * THAT THE HlAUlNQ H A S BEEN 

2fl4 * PRINTED* 

285 SfX LO HTEST iNDICATfc HEADING PRINTED 

287 I RESET THE PRINT A*EA ADDRESS 

288 * AND WORD COUNT, 

289 LD 3 HQ03C-X PLACE FU|_L WORD COUNT 

290 SfO L WDCNT 

29i LD 3 PAP-X PLACE PKINT AREA ADDRESS: 

292 * 

293 * INPUT /NONE 

294 SfO L AREA 

295 B$C L BLKPA 1 BRANCH 

296 ******************************** ****** ************ 

297 * 

2 98 * END OF PRINT AREA 

299 * 
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30 ************* ***************** ******************** 

301 HDNQ MPX FORTRAN'** DATA ALLOCATION 

302 ORG BUF+120 

303 ********************************* ***************** 

304 * 

305 * MAINLINE 

306 * 

30 7 ************************************************** 

HI *. CALL ALLOC Tg ALLOCATE THE 

310 * BLANK AND JNSKEL COMMON 

311 * VARIABLES. 

312 ML010 BSI L ALLOC CALL ALLOC 

313 * 

314 * TEST TO SEE IF ANY EQUIVALENCE 

315 # STATEMENTS WHERE FOUND AND 

316 * EVALUATE THEM JF THERE WERE, 

317 LP L INDIA 1 LOAD 6QUIV, NEST ADRi 

318 BSI L EQUIV,Z BRANCH IF EQUIV, STS, 

319 * „ _ 

320 * CALL ALLOC ROUTINE TO ALLOCATE 

321 * THE REAL VARIABLES. 

322 ML020 BSI L ALLOC CALL ALLOC 

323 * 

324 * CALL ALLOC ROUTINE TO ALLOCATE 

325 * THE INTEGER VARIABLES. 

326 BSI L ALLOC CALL ALLOC 

327 * 

328 * CALCULATE COMMON SUE AND MAKE 

329 * IT EVEN. 

330 LD L CQMON LOAP UPPER COMMON ADR 

331 S L CSIZE SUBTRACT LMER ADR 

332 BSC E SKIP JF EVEN 

333 A 3 H0001-X MAKE EVEN 

334 3T0 L CSIZE STORE COMMON SIZE 

335 * 

336 * CALCULATE JNSKEL COMMON SIZE 

337 * AND MAKE IT EVEN, 

338 LD L LQOMN LO'AQ UPPER COMMON ADR 

339 3 3 LCS-X SUBTRACi LOWER ADR 

340 BSC E SKIP IF EVEN 

341 a 3 HQ0Q1-X MAKE EVEN 

342 SfO L LCOMN STORE INSKEL COMMON SIZE) 

343 * 

344 # INSERT THE WORK AREA SIZE INTO 

345 * THE COMMUNICATION AREA 

346 LD 3 VARCR-X LOAD WO*K AREA SIZE 

347 BSC E SKIP JF EVEN 

348 A 3 H0001-X MAKE EVEN 

349 sfO L SQFXT STORE EVEN WORK AREA SIZE 

HI * PLACE CONSTANT AREA SIZE IN 

352 * SOFGT. 

353 LD 3 CAC-X LOAD CONSTANT AREA SIZE 

354 SfO L SQFGT SAVE |N SQFQT 

355 * 

356 * TEST TO SEE IF PARTIAL LINE 

357 * REMAINS TO 8fc PRJNT6D, 

358 uD 3 PAP-X LOAD PRINT AREA POINTER 
35Q s 3 RPAP-X SUBTRACT START OF PRINT AR 
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360 BSI U PRINT, Z BRANCH 10 PRINT PART LINE 

362 I CALL IN THE NEXT PHASE OF THE* 

363 * COMPILER 

364 EXIT BSI L RQLRX CALL DOWN PHASE 21 

365 DC 21 NEXT PHASE NUMBER 

367 I LOAD THE NUMBER 69 INTO 

368 * THE A REQlSTfeR 

369 ERR65 LD 3 HQQ41-X LOAD 65 

370 HDX ERR BRANCH 

371 * 

372 * LOAD THE NUMBER 66 INTO 

373 * THE A REGISTER, 

374 ERR66 LP 3 H0042-X LOAQ 66 

375 >i DX ERR BRANCH 

376 * „ 

377 * LOAD THE NUMBER 67 INTO 

378 * THE A REQlSTfeR, 
\_ 379 ERR67 uD 3 HQQ43-X LOAD 67 

38! * PLACE THE ERKOR NUMBER AND 

382 * iNDICAfOH. 

383 ERR LDX II INDIA 1 SET XR1 Tg POINT AT EQUIV, 

384 sfo 1 PLACE EKRQR NUMBER 

385 LD 3 HQFFF-X LOAD ERKOR INDICATOR 

386 sfO 1 -1 PLACE EKRQR INDICATOR 

388 * REMOVE SKECHL INDICATORS 

389 * 

390 BSI L RHQVE 

391 * 

392 * CLEAR COMMON INDICATORS 

393 * 
394 
395 

396 MDX ML020 BRANCH 

397 **************************** ***V***************'** 

^ 399 * END OF MAINLINE PROGRAM 

400 * 

401 ********** **************************************** 

402 X E Q U * I 28 lNDEx R * G * STER 3 VAUUE 

403 SWl DC *«* SWITCH 1 

404 sW 2 DC *** SWITCH « 

405 SW3 DC *** SWITCH 4 

406 SW4 DC *** SWITCH J 

407 ODDSW DC *** 0DD SW UCH 

408 EVSW DC *«* EVEN SWITCH 

409 TRACK DC "1 TRA CK SWITCH 

410 LOW DC *-* ^ ow ADRt OF" NEST 

411 HIGH DC *** HIGH AOK, OF NEST 

412 DEFIN DC *«* DETjN JND, FOR NEST 

413 RELAD DC *** RELATJVE ADR, OF NEST 

414 D4 DO *-* OFFSET FOR SUBSCRIPT 

415 NRA DC *** NST RETURN ADR. 

416 *-* SAVE AREA FOR NRA 

417 BASE DC **♦ BASE AD*. OF NEST 

418 VARCR DC *«* AQ R . OF VARIABLE CORE 

419 TAGLP DC /Q312 TAGED LfeFf PARENTHESIS 



LD 


3 H0022-X 


sfo 


3 ALOCB-X 


MDX 


ML020 
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420 VSIZE DC *■• ?S?iift"J« E 

421 ISIZE DC 1 I2I, 10 !?,!' 26 

422 RSIZE DC 2 R ii U w'lY« 
aoi AQI7E Hr **# ARRAY SJZi 

4^4 CAC DC *** CONSTANT AREA COUNT 

495 PAP DC BUF PRINT A«EA POINTER 

426 [MEND DC BUF*60 PRINT LINE END (CONSTANT) 

4?7 RPAP DC BUF PRINT ANEA ADDR (CONSTANT) 

428 SAVAD C *•* S * VE MEXIDECIMAL ADDRESS: 

429 LCS DC *«* INSKEI * ^ 0MH0N SlZE 

430 SALOC DC *«* SAVE ^OgATIQN 

431 PASSW DC *«* PASS SWITCH 

432 ALOCB DC /0022 ALLOCATION BITS 

433 BSS E 

434 NAME DC *•♦ PACKED NAME 

435 DC *«* 2ND WD UF NAME 

436 HTEST D C *«* r S^DEK JW JTCH 

437 HFFFF DC /FFFF CONSTANT 

438 HF800 DC /F800 CONSTANI 

439 HB800 DC /8800 CONSTANI 

440 HA800 DC /A800 CONSTANT 

441 H8000 DC /800Q CONSTANT 

442 H4000 DC /4000 CONSTANT 

443 H3FFF DC /3FFF CONSTANI 

444 H2022 DC /2022 CONSTANI 

445 H1800 DC /10OO CONSTANT 

446 HOFFF DC /OFFF CONSTANT 

447 H0C00 DC /0C00 CONSTANT 

448 H07FF DC /Q7FF CONSTANT 

449 HQ7FC DC /0?FC CONSTANT 

450 H07F2 DC /Q7F2 CONSTANT 

451 H0300 DC /Q300 CONSTANI 

452 H00D9 DC /00D 9 CONSTANT 

453 H00C9 DC /00C9 CONSTANI 

454 H00C5 DC /00C5 CONSTANT 

455 H00C3 DC /00C3 CONSTANI 

456 H00C0 DC /00C0 CONSTANT 

457 H007E D C /007E CONSTANT 

458 H0060 DC /0060 CONSTANT 

459 H005D DC /Q05D ) 

460 H005C DC /005C CONSTANI 

461 H004D DC /004D „*..„. 

462 H0041 DC /0041 CONSTANT 

463 H0042 DC /Q042 CONSTANT 

464 H0043 DC /0043 CONSTANT 

465 H0040 DC /QQ40 CONSTANT 

466 H003F D C /003F CONSTANT 

467 H003C DC /Q03C CONSTANI 

468 H0039 DC /0039 CONSTANT 

469 H0028 DC /0028 CONSTANT 

470 H0022 DC /0022 CONSTANT 

471 H0020 DC /Q020 CONSTANT 

472 H0012 DC /0012 CONSTANT 

473 H000F DC /O0OF CONSTANI 

474 HOOOC DC /OOQC CONSTANT 

475 HQ009 DC /0009 CONSTANT 

476 H0003 DC /0003 CONSTANI 

477 H0002 DC /0002 CONSTANI 

478 H0001 DC /0001 CONSTANI 

479 HDNQ MPX FORTRAN ** DATA ALLOCATION 
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480 ******#;*******##**#***********v***************** 

481 * 

482 * ROUTINE NAME/A&RL 

484 * FUNCTION /PLACE IN VSIZE THE SJZE OF EACH 

485 * ELEMENT AN' IN ASiZi "THE TOTAL SIZE 

486 * OF THE ARRAY, 

487 * 

488 * ENTRY /ARRL 

489 * 

490 * INPUT /NO SPECIAL INPUT OTHER THAN THE 

491 * SYMBOL TABLE, 

492 * 

493 * OUTPUT /VSIZE AND ASJZI WILL BE SET, 

494 * 

405 * EyTERNAL 

496 * REFERENCES /SUBROUTINES V A R£0 A R E CALLED AW 

407 * REFERENCES TQ V*UE, ASIZE.H1800 

498 * ARE MADE. 

^ 499 * 

500 * ERRO« /NONE 

502 * NOTE /CALLING SEQUENCE BSI ARRL 

503 * 

504 ****#******•****#******■**************************** 

505 * 

506 * ENTRY-ARRL 

507 ARRL DC *«* LINK WOHD 

l\l * CALu VARFO TU DETERMINE THE 

510 * SIZE OF THE PRESENT SYMBOL, 

511 BSI 3 VARFO-X CALL VAHFO 

111 * PLACE THE SUE OF THE SINGLE 

514 * ELEMENT JN ASI?E, 

5i5 LD 3 VSIZE-X L0AD THfc ELEMENT SIZE 
51 6 SfO 3 ASIZE-X PLACE IN ARRAY SIZE 

v 518 * TEST THE SYMBOL/TO SEE IF IT 

519 * IS DIMENSIONED. 

520 LD 2 LOAD JNUI^ATOR WORD 

521 AND 3 H18Q0-X SAVE DIMENSION IND, BITS: 
lis 3SC I ARRL* " B« IF NUT DIMENSIONED 

524 I CALCULATE THfc SIZE OF THE 

cok * aRRay, 

lil ld 2 "3 LOAD NUM86R OF ELEMENTS 

527 M 3 VSIZE-X MULTIPLY BY ELEMENT SIZE 

528 RfE 16 ., „._„ 

529 STO 3 ASIZE-X STOKE A«RAY SIZE 

530 * 

531 * RETURN 

532 3SC I ARRL RETURN 

533 **#*************#***#***********************♦***** 

534 * 

535 * END OF ARRL ROUTINE 

536 * 

537 #********#*****#****#******* ********************** 

538 HpNG MPX FORTRAN ** PA|A ALLOCATION 

539 *******#*****#********************************** # * 
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540 * 

541 * ROUTINE NAME/VARFQ 

tZ A O 

543 * FUNCTION /PUACE IN VSIZE THE SIZE OF THE 

543 * FUNCIUN ^^RIABLE Q& CONSTANT THAT IS BEING 

545 * LOOKED AT, 

546 * 

547 * ENTRY /VARFO 

549 * INPUT /HO SPECIAL INPUT OTHER THAN THE 

550 * SYMBOL T ABLE, 

551 * 

552 * OUTPUT /VSIZE WILL BE SE{. 

553 * 

555 * REFERANCES /REFERANCES To I«I JtE, VStZE.RSlZK 

556 * ARE MADE. 

557 * 

558 * ERROR /NONE 

560 * NOTE /CALLING SEQUENCE BSI VARFO 

561 * 

562 ************************************************** 

^64 * ENTRY'VARFP 

565 VARFO DC *** L¥ N * WOKD 

567 * SET VARIABLE SIZE TO THAT OF 

56 8 * THE INTEGER VARIABLES. 

569 LD 3 ISJZE-X LOA0 JNIEQER SIZE 

570 3T0 3 VSIZE- X STORE IN VARIABLE SIZE 

572 * TEST TO SEE IF THE VARIABLE IS 

573 * REAL OR INTEGER, 

574 LD 2 LOAD JNUICATOR WORD 
E75 3LA 1 PLACE RfA!, PD, IN SIGN 
l 76 BSC I VARFO, Z BR IF INTEGER 

V III I SET THE VARIABLE SIZE TO THAT'O 

579 , THE REAL VARIABLES. 

580 LD 3 RSIZE-X LOAD REAL SJZE 

581 SfO 3 VSIZE-X STORE IN VARIABLE SIZE 

582 * 

583 * RETURN 

584 BSC I VARFO RETURN 

585 ************************************************** 

586 • 

587 * END OF VARFO KOUTl.NB 

588 * 

589 ************************************************** 

590 HDNG MPX FORTRAN ** PAIA ALLOCATION 

591 ************************************************** 

592 * 

593 * ROUTINE MAME/RTN 

594 * 

595 * FUNCTION /POINTS INDEX REGISTER 1 TO THE FIRS 

596 * SYMBOL IN THE NE»T NOW BEING WORKED 
=97 * ON. INDEX REGISTER 2 IS ALSO SET TO 

598 * POINT AT SYMBOL TABLEi 

599 * 
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600 * ENTRY /RTN 

601 * 

602 * INPUT /MO SPECIAL. INPUT. 

603 * 

604 * OUTPUT /XRl AND XR2 ARE SET. 

605 * 

Afl6 * EyTERNAL 

607 * REFERENCES /SUBROUTINES XR2 AND REQUIRED AND 

60 8 * REPERAHCES TO NHA ARE MADE. 

609 * 

610 * ERROR /NONE 

611 * 

612 * NOTES /HONE 

613 * 

614 ************************************************** 

616 * ENTRY'RTN 

617 RTN DC *** LINK WOKD 

61 9 * RES-ORE INDEX REGISTER 1 TO 

^ 620 * POINT AT THEFJRST VARIABLE 

621 * IN THE PRESENT NEST, 

622 LDX II NRA LOAD XRl NEST RETURN ADR, 

624 * CALL XR2 TQ SET INDEX REGISTER 

625 * TO POINT AT I HE INDICATOR WORD 

626 * OF THE SYMBOL XRl POINTS AT, 

627 9SI 3 XR2-X CALL XR* 

628 * 

629 * RETURN 

630 BSC I RTN RETURN 

631 ************************************************** 

632 * 

633 * END OF RTN ROUHNb 

634 * 

635 ************************************************** 

636 HQNG MPX FORTRAN ** DAIA ALLOCATION 

637 ************************************************** 

V, 638 * 

639 * ROUTINE .IAME/XR2 

641 * FUNrTrON /THIS ROUTINE PICKS UP THE WORD 

641 * FUNCilUN x 5^ciriEO BY INDEX REGISTER i 

lA * COMPUTES THE SYMBOL, T A BLE ADD^SS* 

644 * AND LOAD THAT ADURfiSS INTO INDEX 

645 * REGISTER 2 t 

646 * 

647 * ENTRY /XR2 

649 * INPUT /NO SPECIAL INPUT OTHER THAN THE 

650 * STRING AND SYMBOL TABLE, 

652 * OUTPUT /INDEX REGISTER 2 IS SET, 

653 * 

654 * EXTERNAL . u M „^ if%p . 

655 * REFERANCES /REFErANCES TO SUFST,H 7FF ARE 

656 * MADE. 

657 * 

658 * ERROR /NONE 

659 * 
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660 * NOTES /CALLING SEQUENCE B$I XR2 

661 * 

662 ************************************************** 

663 * 

664 * ENTRY-XR2 

665 XR2 DC *** ^ NK wQ ? D 

it* * LOAD INDEX RfeGjSTER 2 WITH THE 

668 * SYMBOL TABLE ADDRESS OF SYMBOL, 

669 LD 1 LOAD SYMBOL 

67 AND 3 H07FF-X SEPARATfc OFFSET 

671 SfO XR2A SAVE QFtS|T 

672 LD L SQFST CALCULATE 

673 A 3 HQ003-X ^^ 

674 s * 4 SyF|T-3*0FSET 3 

675 S * 3 

677 STO * 1 INITIALIZE LDX INSTRUCTION 

678 LDX L2 *** LOAD X R ? 
^ 679 XR2A EQU *ml M0DjFIA8L| 

680 * 

681 * RETURN 

682 BSC I XR2 RETURN 

683 ************************************************** 

685 * END OF XR2 ROUTJNb 

• 686 * 

687 ************************************************** 

688 HDN6 MPX FORTRAN ** PAiA ALLOCATION 

689 ************************************************** 

690 * 

691 * routine.name/hilo 

693 * FUNCTION /THE HIGH AND LOW VALUES AND THE 

694 * DEFINE INDICATORS ARE SAVE FOR 

695 * A SET Or NESTS OK EQUIVALENCE 

696 * STATEMENTS t 

697 * 

V7 698 * ENTRY /HlLO 

699 * 

700 * INPUT /THE VALUE OF THE VARIABLE BEING 

701 # LOOKED AT AS WELL AS THE SYMBOL 

702 * TABLE, 

704 * OUTPUT /LOW, HIGH AND D6F.1.N WILL BE SET, 

705 * 

707 I REFERENCES /SUBROUTINES ARRL,QETD4 ARE CALLED 

708 * AND REFERANCES MEL^D* VSIZE.BASE, 

709 * ASlZE,LOW,HOQ0i,MIISH # 0EF!N ARE 

710 * HADE, 

711 * 

712 * ERROR /NONE 

714 * NOTE /CALLING SEQUENCE BSI HRO 

715 * 

716 ************************************************** 

717 * 

71 8 * ENTRY-HIL.0 

719 HILO DC *»* M NK w °^° 
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72? * CALL ARRL TO 0&T A lN THE VARUBL 

7 22 * SIZE AND THE ARRAY SIZE, 

723 BSI 3 ARRL-X CALL AR«L 

lit * CALu QETP4 TU gBTAIN THE OFFSET 

72 6 * FOR THE PRESfeNT VARIABLE, 

727 BSI GETD4 CALL GETD4 

728 * 

729 * CALCULATE THfe iASlS FOR 

7^ * DETERMINING IF THIS ARRAY OR 

731 * ELEMENT WILL'DEFPE A NEW 

732 * LOW OR'HIQH l-OR THIS NEST, 

733 A 3 RELAD-X CALCULATE 

734 A 3 VSIZE-X BASE 04 RfLAP-VSlZE 

735 SfO 3 BASE-X 

736 * 

737 * TEST SWITCH 4, 

738 LD 3 3W3-X LOAD SWITCH 3 

^ 739 8SC L HILQ3, - BRANCH IF EQUIV. COHMON 

7 41 * TEST TO SEE IF REAL VARIABLES ARE 

742 * STANDARD PRECISION. 

743 * 

744 LD L CCWD LOAD CONTROL CARD WORD 

745 .j,A 13 PLACE PRECISION IN SIGN 

7 4 6 BSC L HIL05, Z BRANCH fcXTEND. PRECISION 

748 I TEST TO SEE IF REAL VARIABLE BEINQ 

749 * LOOKED AT. 

7^1 * LD 2 LOAD jNUIpATOR WORD 

752 SLA 1 PLACE TYPE JN SIGN 

753 DSC L HILQ5, Z BRANCH IF INTEGER 

7I5 I TEST TO SEE IF THb LOW VALUE OF 

756 * THE ARRAY OR VARIABLE IS EVEN. 

757 * 

^ 758 LD 3 BASE-X COMPUTE LOW ADDRESS 

759 S 3 ASIZE-X 

760 3SC L HU06,E BRANCH i,F ODD 

762 I TEST TO SEE IF THfe ODD SWITCH IS 

763 * SET ON. 

7A5 LD 3 ODDSW-X LOAD QDU SWITCH 

766 3 Sc L ERR67.Z BRANCH IF ALLOCATION E**OR 

768 I SET THE EVEN SWJTCH ON, 

769 * 

770 StX LO EVSW SET EVEN SWITCH 

771 MDX HJL05 BRANCH 

772 * 

773 * TEST TO SEE IF THfe EVEN SWITCH IS 

774 * SET ON, 

775 * 

776 HIL06 LD 3 EVSW-X LOAD EVbN SWITCH 

777 3SC L ERR67,Z BRANCH JF ALLOCATION ERROR 

778 * 

779 * SET ODD SWITCH QNt 
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780 * 

781 STX L0 ODDSW 

III I TEST TO SEE IF THIS NEST WILL 

784 * PRODUCE A NEW ),0M| 

785 HIL05 LD 3 BASE-X LOAD PRtSENT LOW 

787 t 3 LQW-x"* TEST AGAINST TOTAL LOW 

788 BSC L HILOl.- B* |F NUT NEW LOW 

790 I SAVE THE NEW LOW FOR ALLOCATION 

791 * PRUPOSES, 

792 A 3 LQW-X RESTORE NEW LOW 

793 3f0 3 LOW-X SAVE NE« L.0W 

79= * TEST TO SEE IF THIS NEST WILU 

4o 6 * PRODUCE A NEW HlQH, 

797 HILOl LD 3 BASE-X LOAD PRtSENT HIGH 

798 S 3 H0001-X 

799 $ 3 HIGH-X TEST AGAINST TOTAL HIGH 

800 8SC L HIL02, BR IF NUT NEW HIGH 

ll\ * SAVE THE NEW H|GH FOR ALLOCATtO 

803 * PURPOSES, 

80 4 A 3 HIGH-X RESTORE NEW HIGH 

805 SfO 3 HIGH-X SAVE NEW HIGH 

f 07 * SAVE THE INDICATOR WORDS FOR 

ao 8 * THE SYMBOLS JN THE NESTS, 

809 HIL02 LD 3 DEFIN-X LOAD ACCUMULATED IND, WORD 

810 OR 2 OR IN NtW IND. WORD 

qJ-L S fO 3 DEFIN-X SAVE ACCUMULATED IND, WQRD 

812 



813 * 



RETURN 



814 HILOX BSC I HILO RETURN 

53"! I TEST TO SEE IF THE VARIABLE 

8i7 , NOW BEING LOUK|D AT IS IN INSKE 

^ 818 * COMMON i' 

ftiQ uTLn3 LB 2 LOAD INDICATOR WORD 

82? SLA 15 PLACE INSKEL IND. IN SIGN 

82i BSC L HJL04,- BRANCH IF IN BLANK COMMON 

HI * TEST TO SEE IF THE START OF 

a^ * INSKEL COMMON JS BEING EXTENDED 

825 LD 3 .BASE-X LOAD PRtSENT HIGH 

||f s L 3 L00Mn" X TEST AGAINST INSKEL HIGH 
828 BSC L ERR66,-Z BRANCH IF EXTENDING COMMON 

830 * TEST TO SEE IF THE END OF INSKE 

£,, * COMMON IS BEIN^ EXTENDED. 

832 LD 3 BASE-X LOAD PRtSENT LOW 

833 S 3 ASIZE-X 

834 s 3 LCS-X TEST AGAINST INSKEL LOW 

835 BSC L HIL02,- BRANCH IF NOT NEW LOW 

837 * INDICATE THE NEW LOW FOR INSKEL 

a-ta # COMMON • 

839 A 3 LCS-X RlSTORE NEW LOW 
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^ 



840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 



SfO 3 LCS-X 
HDX HJL02 



SAVE NEW LOW 
BRANCH 



# TEST TO SEE IF THE START OF 

* BLANK COMMON'"!* BEING EXTENDED, 
HIL04 uD 3 BASE-X LOAD PRbSBNT HIGH 

3 3 HQQQl-X 

3 U CQMON TEST AGAINST COMMON HIGH 

3SC L ERR66.-Z BRANCH IF EXTENDING COMMON 

TEST TO SEE IF THE END OF BLANK 
COMMON IS BE'iN{» EXTENDED. 
3 BASE-X LOAD PRtSENT LOW 
3 ASIZE-X 
L CSIZE TEST AGAINST COMMON LOW 
U HIL02,- BRANCH IF NOT NEW LOW 



# 
# 



uD 

3 

3SC 



* 
* 
* 



3f0 
HDX 



INDICATE THE NEW LOW FOR BLANK 
COMMON i 
L CSIZE RESTORE NEW LOW 
L CSIZE SAVE NEW LOW 
HJL02 LOOP 



************************************************** 



* 
* 



END OF H1LO ROUTINE 



********** ************************ **************** 
HDNG HPX FORTRAN ** DATA ALLOCATION 

************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



ROUTINE NAME/QETD4 



/PLACE IN D4 THE OFFSET INDICATED 
BY THE SUBSCRIPT IN EQUIVALENCE, 

/QETD4 

/INDEX REGISTER 1 POINTING AT THE 
STRING AND INDEX RfGJSTER 2 
POINTING Aj THE SYMBOL TABLE. 

/D4 WILL BE SET. 



FUNCTION 

ENTRY 
INPUT 

OUTPUT 

REFEREES /REFERANCES TO D« f Nl8QQ # H8000 ARE 
MADE, 



ERROR 



NOTES 



/NONE 

/CALLING SEQUENCE 



BSI GETD4 



**************** 



********************************** 



* 
* 
GETD4 DC 

* 

SLA 



*„* ENTRY TO 6ETD4 RTN 
PLACE A ZERO IN D*t 



16 
SfO 3 D4-X 



ZERO A KESISTER 
STORE IN 04 
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HI I CHECK TO SEE IF THE SYMBOL IS' 

Jo * DIMENSIONED, 

Hi * LD 2 10AP jNUI^ATOR WORD 

gn4 AND 3 H18OQ-X SAVE DIMENSION IND, BITS: 

SSS BSC I QBTD4. - BR IF NUT DIMENSIONED 

Hi * PLACE THE QF£SET IN D4, 

onS LD 12 LOAD QFtSJT 

909 EOR 3 H80Q0-X REMOVE LEADING BIT, 

910 3f0 3 D4-X SfORE D« 

\\\ *" RETURN 

913 BSC I GETD4 RETURN 

9J4 ************************************************** 

915 * 

916 * END OF GETD4 ROUTINE 

917 * 

918 ************************************************** 
L_ 919 HDNG MPX FORTRAN ** DATA ALLOCATION 

920 ************************************************** 

921 * 

922 * ROUTINE NAME/EVENA 

924 * FUNCTION /MAKE THE VALUE Oh VARCR EVEN. 

925 * 

# 926 * ENTRY /EVENA 

Ha * INPUT /THE VALJE JO BE «ADE EVEN IN VARCR, 

929 * 

930 * OUTPUT /VARCR IS EVEN, 

931 * 

933 * REfIraNCES /REFERANCES TO VARQR,H Q01,RSIZE 

934 * ARE MADE. 

935 * 

936 * ERROR /NONE 

\. 938 * NOTE /CALLING SEQUENCE BSI EVENA 

939 * 

940 ************************************************** 

941 * 

ENTRY-EVENA 

*„* LINK WOHD 

TEST TO SEE IF THE SIZE OF THE 
VARIABLES ARt STANDARD OR 
EXTENDED PRECISION, 
3 RSIZE-X LOAD REAL SJZE 
I EVENA, E BR IF EXTEND. PRECISION 

TEST VARCR FUR BEING EVEN, 
3 VARCR-X LOAD VARIABLE CORE ADR, 
E SKIP IF EVEN 

INCREMENT THfc VARIABLE CORE ADR 
BY 1 TO MAKE IT EVEN, 
3 H0001-X INCREMENT VA*CR BY 1 
3 VARCR-X STORE VARQR 



942 


* 




943 


EVENA 


DC 


944 


* 




945 


* 




946 


* 




947 


* 




948 




LD 


949 




BSC 


950 


* 




951 


* 




952 




LD 


953 




BSC 


954 


* 




955 


* 




956 


* 




957 




A 


958 




SfO 


959 


* 
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960 * RETURN 

961 BSC I EVENA RETURN 

962 ************************************************** 

964 * END OF EVENA ROUTINE 

965 * 

966 ************************************************** 

9 67 HpNG MPX FORTRAN ** PA1A ALLOCATION 

968 ************************************************** 

969 * 

970 * ROUTINE NAME/INCR 

971 * 

972 * FUNCTION /THIS ROUTINE PQSriQNS INDEX 

972 * HJNL-IUN ^ S *, STERS % AND 'i PURING HANDLING 

974 * OF EQUIVALENCE SiATEMgNTS 

975 * ENTRY POINTS/INCR MOVES INDEX REGISTER 1 TO THE 

976 * NEXT SYMBOL IN THE EQUIVALENCE 
J77 * STATEMENTS, SKJPS ANY DELETED 

978 * NESTS, 

^ 98O * INIT PLACES JNpE* REGISTER 1 TO THE 

981 * FIRST NON-DELETEU NEST. 

983 I INPUT /NO SPECIAL INPUT OTHER THAN THE 

984 * SYMBOL TABLE, 

985 * 

986 * OUTPUT /INDEX REGISTER I WJLL BE POINTING. 
986 * T 1 the 3TRiNe ANy |Npex REQ1STER 2 

9a8 * WILL POINT AT THfc ENTRY IN THE 

989 * SYMBOL TABLE ASSUCJATED WITH THE 

990 * STRING SYMBOL, 

991 * 

992 * external 

993 * REFERENCES /SUBROUTINES MQVfc,XR2 ARE REQUIRED 

994 * A ND REFERENCES TU NRA,H8000 ARE. 

995 * MADE, 

996 * 

997 * ERROR /NONE 
s. 998 * 

999 * NOTES /STORAGE CELL AT 4NQ1A 1 IS FILLED I 

1000 * BY INITIALIZATION WITH THE ADDRESS 

inn? J OF THE FIRST EQUIVALENCE STATEMENT 

J002 * OF A DUMMY IF EQUIVALENCE ARE 

1003 * PRESENT. 

10 05 I************************************************* 

1007 I ENTRY-JNCR 

1008 INCR DC *«* L *. NK w0, ? D 

lS?0 * CALL MOVE TO MQVE POINTER TO TH 

till * MEXT SYMBOL IN THE EQUIVALENCE 

1012 * STATEMENTS, 

1013 BSI MOVE CALL MOVE 

1014 DC IN01E BR JF END OF ALL EQUIV 

1015 DC IN01B BR IF END OF NEST 

tSl7 I CALL XR2 Tp HOJNT INDEX REGISTE 

ill* „ 2 AT THE INDICATOR WORD OF THE 

1019 * SYMBOL TABLE' ENTRY, 



SEITE 18 

1020 881 3 XR2-X CALL XR* 

llll ! RETURN LJNK * 

Wll im L INCRf2 INCREMENT LINK WORD BY 2 

1024 BSC I INCR RETURN 

1026 * ENTRY-INIT 

1027 INIT DC *•• LINK WORD 

[HI * MOVE THE LINK WORD TO THE INQR 

lnifl * ENTRY POJNT, 

I 31 i-D INIT LOAQ 0m MORD-INIT 
1032 3T0 INCR STORE LINK WORD- INCR 



llll * SET INDEX REGISTER 1 TO POINT' A 

llU * THE FIRST NB»T. THIS ADDRESS. I 

llll I COMPUTED IN iHi INITIALIZATION 



1037 # AN IS STORED HEREt 

1038 India ldx li *.* load xri with nest address 

^ llll * SAVE INDEX REGISTER 1 FOR THE' 

1041 * RTN ROUTINE, 

1042 IN01B SfX LI NRA SAVE XRl 

nil I TES' THE LEFT PARENTHESIS TO SE 

llA I IF THE NEST &A§ BEEN DELETED, 

1546 LD 1 "I LOAD (.EKT PARENTHESIS 

illy EOR 3 H3000-X CHECK FUR DELETE CODE 

IjJe BSC L IN01C, - BR. JF DELETE CODE 

iSgO * CALL XR2 TO HOJNT INDEX REGISTE 

llll I 2 AT THE INDICATOR WORD OF THE 

Iq 52 * SYHBOL TABLE ENTRY. 

1053 Bsl 3 XR2-X CALL XR* 

llll * INCREMENT \W WORD BY 1 

IHI MDX L i NC R,l INCREMENT LINK WORD BY 1: 

S. iSIs * RETURN C LINK 



INOlE LD INCR INITIALIZE BRANCH INST, 
* 3fO * 1 MODIFY EXJT 

RETURN 



1059 * 

1060 

1061 

1062 BSC I *n* 

IHI I CALL- XR2 TO ?0JNT INDEX REGISTE 

HA l 2 k r THE INDICATOR WORD OF THE 

1066 * SYHBOL TABLE ENTRY. 

1067 INOlC 8SI 3 XR2-X CALL XR* 

llll * CALL MOVE TO MQVE POINTER TO TH 

Vijl I NEXT SYMBOL JN THE EQUIVALENCE 

1071 * STATEMENTS! 

Ifi72 BSI MOVE CALL MOVE 

£o73 DC IN01E BR |F END OF ALL EQUIV, 

n 7A it INQ1B BR IF END OF NEST 

1075. MDX INOlC LOOP 

1076 ***************#***************•****************** 

^78 * END OF INCR ROUTINE 

1079 * 
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1080 ***************#********************************** 

1081 HDNG MPX FORTRAN '** DAU ALLOCATION 

1082 ************************************************** 

1083 * 

1084 * ROUTINE NAME/MOVE 

1 85 * 

1086 * FUNCTION /HOVE INDEX REGISTER 1 TO THE NEXT 1 

1087 * SYMBOL IN THE EQUIVALENCE STATEMENT 

1088 * PRESENT. 

1089 * 

1090 * ENTRY /HOVE 

1092 I INPUT /NO SPECIAL INPUT OTHER THAN THE 

1093 * SYHBQL TABLE, 

lilt * OUTPUT /INDEX REQlST§R 1 WILL POINT AT T H E 

1096 * NEXT SYMBOL IN THE EQUIVALENCE 

1097 * STATEMENTS, 

1098 * 

^ 1100 * REFERENCES /REFERENCES TO Hl8QQ,HQ012,HF80Q, 

1101 * HA80Q ARE MADE, 

1102 * 

1103 * ERROR /NONE 

1104 * 

1105 * NOTE'S /NONE 

1106 * 

1107 ************************************************** 

1108 * 

1109 * ENTRY-MOVE 

1110 MOVE DC *•* H. NK w0l ? D 

1112 I CHECK TO SEE IF PRESENT SYMBOL 

1113 * IS DIMENSIONED, 

1114 LD 2 LOAD INDICATOR WORD 

1115 AND 3 H1800-X SAVE DIMENSION BITS 
1U6 OSC L MV01A, - BR IF NUT DIMENSIONED 

.-.. iiie I HOVE INDEX RbGJSTER 1 OVER THE 

U 19 * SUBSCRIPT, 

1120 HDX 1 3 

1122 * MOVE INDEX RfcGjSTER l OvER THE 

1123 * SYMBOLt 

1124 MV01A HDX 1 2 

JJ?! * TEST TO SEE IF THERE IS A SYMBO 

Uly I A T LOCATION SPECIFIED BY XRi, 

1128 LD 1 LOAD SYMBOL AT XR1 
U29 B S C L MVQ1B,- BR IF OPERATOR 

1130 * 

1131 * RETURN TO LINK 2 

1132 HDX L MOVE* 2 INCREMENT LINK WORD BY Z 
H33 8SC I MOVE RETURN 

1135 *. TEST THE SEPtRATQR TO SEE IF IT 

1136 * IS A COMMA. 

1137 MV01B 5 3 H Ql2-X TgST FO« COMMA 

1138 BSC L MV01C,Z BR JF NUT A COMMA 

1139 * 
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1140 , MOVE INDEX RbGlSTER X TO THE 

U41 * NEXT NEST, 

1142 MDX 1 2 

££})[ * INCREMENT \,W WORD BY 1 

1145 MVOlD MDX U MQVE#1 

iJl? I RETURN C LINK WORD 

1JJS MV ° 1E & "T W?.^ t W 7 IN STPUCT I0 N 

1150 BSC I *«* RETURN 

}}!! * TEST THE NEXT STATEMENT TO SEE 

i;Zi * IF IT IS AN tQUlVALENOE 

T154 * STATEMENT, 

U95 MV01C LD 1 1 w LgAD N^T ID WORD 

IS? eSR D 3 3 K: 2 K T ? S S !?VAUEH« 

llll BSC L MV01E,Z 8R JF N S T EQUIV. STATEMENT 

^ ^J ^ SKIP TO NE5T IN NEXT STATEMENT, 

1161 MDX 13 

1162 1DX MVOlD LOOP SACK 

1^65 * END OF THE MOVE RUUTINE 

liftS HDNG MRX FORTRAN ** DATA ALLOCATION 

1169 ************************************************** 

1170 * 

1171 * ROUTINE fiAME/RMOVE 

1173 * FUNCTION /REMOVE BEING ALLOCATED BITS FROM 

l£ 74 * THE SYMBOL TABLE, 

1175 * 

1176 * ENTRY /RMQVE 

V 1178 * INPUT /THE SYMBOL TaBLE IS INPUT. 

U80 * OUTPUT ^HE SYMBOL TJBLEHIU BE FREE 

1 18 1 * OF BEING ALLOCATED S I ' 5 ( 

U83 I REfIraNCES /REFERANCES TO SUF*T # H 300,H1800, 

U84 * D4,E0FST ARE MAUE, 

1185 * 

1186 * ERROR /NONE 

1188 * NOTE /CALLING SEQUENCE BS1 RMOVE 

U90 I************************************************* 

mi * ENTRY-RMovg 

1193 RMOVE DC *»* M. MK W °- D 

iiSl ! POINT INDEX KEBISTER 1 AT THE! 

HH 1 START OF THE SYMBOL TABLE, 

1197 LDX II SOFST LOAD XRl WITH SOFST 

[HI * THE SYMBOL TU 5EE IF THE BEING 



V 
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1200 * ALLOCATED |ITS ARE ON, 

1201 RM01A LD 1 LOAD jNyiCATOR WORD 

1202 AND 3 H03QQ-X TEST |E;IN§ ALLOCATED BITS 

1203 EQR 3 H03QO-X 

1204 BSC L RH01B,Z BR IF NUT BEING ALLOCATED 

1205 * 

!206 * CLEAR BEJNG ALLOCATED BITS FROM 

1207 * SYMBOL TaBLEi 

12 Q8 LD 1 LOAD INDICATOR WORD 

3.209 EOR 3 H0300-X CLEAR BEING ALLOCATED BITS 

3.210 3T0 1 |T0R6 INDICATOR WORD 

1211 * 

1,212 * TEST TO SEE IF SYMBOL IS 

1213 * DIMENSIONED." 

1214 RMOlB LD 1 LOAD INDICATOR WORD 

1215 mND 3 H1800-X SAVE DIMENSIONED BITS 
l2ie BSC Z SKIP IF NOT DIMENSIONED 

1217 * 

1218 * MOVE INDEX RbGjSTER 1 OVER THE 

1219 * DIMENSION INFORMATION. 

1220 MDX 1 -3 

1221 * 

1222 * MOVE TO NEXT SYMBOL 

1223 MDX 1 -3 

1224 * 

1225 * TEST TO SEE THE WHOLE SYMBOL 

1226 * TABLE HAS BEfcN CHECKED, 

1227 STX LI D4 SAVE PRtSENT POSITION 
i228 LD 3 D4-X LOAD PRESENT POSITION 

1229 S L EQFST TEST FOK END OF TABLE 

1230 BSC I RHQVE, BR IF END OF TABLE 

1231 HD* RM01A LOOP BAUK 

1232 **************************** ****** **************** 

1233 * 

1234 * E.ND OF RMOVE ROyUNE 

1235 * 

1236 ************************************************** 

1237 HDNG MPX FORTRAN ** DATA ALLOCATION 

1238 ***************##********************************* 

1239 * 

1240 * ROUTINE MAME/INSER 

1942 * FUNCTION /JNSERT T H E ALLOCATION IN THE SyMBOL 

llll * table a^d p*inT Ihi allocation. 

1244 * 

1245 * Entry /inser 

1247 * INPUT /ALLOCATION IN A HESTER- INDEX 

1248 * REGISTER 2 SET TU POINT A T SYMBOL: 

1249 * TABLE. 

1250 * 

1251 * OUTPUT /ALLOCTION IN SYMBOL TABLE AN SYMBOL 

1252 * READIED FOR PRINTING, 

1253 * 

1254 * external 

1255 * REFERANCES /SUBROUTINES ToPaU,TQPa,TOPaDiPRINT 

1256 * 8LKPA1NEWPG ARE CALLED AND 

1257 * REFERANCES TO SALQC,H Q02, ALOCB, 

1258 * N AM£,CCWD#HGQOe#MFFFF»H0040,HQ060i 

1259 * HOOD9.HOOC9#MOdc3,M009C»H007E#VSIZE 
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ASJZE#H1800*PAP,KPAP # LNGND#H003C, 
WOCNT.PCHSK ARE MADEj 



1260 * 

1261 * 

1262 * 

1263 * ERROR /NONE 

^265 * HOTE /CALLING SEQUENCE LD ALLOCATION 



BSI INSER 



1266 * 

1267 * 
1268 

\\yl * ENTRY- INSER 



1271 INSER DC *•* VfNK w0 ? D 

\ll\ * SAVE THE ALLUCATION IN SALOC, 

1274 3f0 3 SALOCX SAVE ALLOCATION 

\lll * TEST TO SEE IF SYMBOL HAS BEEN 

T077 * PREVIOUSLY ALLOCATED, 

T278 ID 2 LQAD INUICATQR WORD 
v T279 AND 3 HQ002-X SAVE ALLOCATION BIT 

iiao BSC L IS01A, - BR NOT PREVIOUSLY ALLOCATE 

{HI * TEST TO SEE THAT ALL ALLOCATION 

i?fl3 * ARE THE SAME., 

YoIa l n 2 1 LOAD PRfeVjOgS ALLOCATION 

lias 3 3 SALOC-X CHECK WlTM THIS ONE 

1286 BSC L ERR67,Z BR IF NOT THE SAME 

1287 HDX IS01B BRANCH 

llll I PLACE ALLOCAflQN BITS IN THE 

J290 * INDICATOR WOKD OF THE SYMBOL 

1?91 * tablE» 

1992 IS01A LD 2 LOAD INDICATOR WORD 

nil l OR 3 AL.OCB-X OR IN ALLOCATION BITS 

JJ94 s?o 2 STORE INDICATOR WORD 

{III * SAVE THE VARIABLE NAME 

S? * fliH |n 2 - LOAD 1ST WORD OF NAME 

V. ^298 XS01 3fO NAME^X SAVE Jsf WORD OF NAME 
lill 1 2 2 LOAD 2ND WORD OF NAME 

1300 3T0 3 NAME-X 1 SAVE 2 NU WORD OF NAME 

llll * IN SERT THE ALLOCATION FOR THJS 

J3S3 * VARIABLE IN ¥h| 2ND WORD OF ITS 

1304 # SYMBOL TABLE ENTRY, 

1305 LD 3 SALOC-X LOAD ALLOCATION 

llll STO 2 1 P^ACE IN SYMBOL TABLE 

il° n l I TEST TO SEE LIST SYMBOL TABLE 

ring * IS REQUESTED; 

Ull LD u CCWD LOAD CONTROL CARD WORD 

131? SLA 12 PLACE LAST S,T, BIT IN SIG 
llll lie I INSER," BRANCH IF NO LISTIN REQU1R 

llll * TEST TO AVQIU LUTING G,T, AND 

:J}J * S.O.T. ENTRY IN SYMBOL TABLE, 

1316 LD 2 L0AU 1° W0RD 

1317 AND 3 HOOOC-X SAVE S.M.T. AN Q.T, BITS 
J318 BSC I INSER,* BRANCH IF 0,T. OT S,G,T, 
1319 * 
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1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 
1363 

1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 



* 



* 



* 
* 



LD 

EOR 

BSC 



LD 

sfo 



BSC 



IS01C LD 
AND 
8SC 
LDD 
RTE 
SfD 
MDX 
LD 
B$I 
LD 
3RA 
BSI 
LD 
3RA 
BSI 
LDD 
SLT 
BSI 
LD 
SRA 
BSI 
LD 
BSI 



QOl 



* 



* 
* 

* 
* 



LD 
BSI 



LD 

3LA 

LD 

BSC 

LD 

BSI 



TEST TO AVQIU LASTING PREVIOIJSL 
LISTED VARIABLE WHEN ALLOCATING 
EQUIVALENCE STATEMENTS, 

2 2 LOAD 2NU WORD IN SYMBOL TA 

3 HFFFF-X TEST FO« WASTED 

[ I.MSER, - BRANCH IF LISTED 



INDICATE THAI THIS VARIABLE 

BEEN LISTED, 
3 HFFFF-X LOAD PRINTED INDICATOR 
2 2 PLACE IN SYMBOL TABLE 



HAS 



TEST 
BEEN 
3 HTEST-X 
L HDQ10, - 



TO SEE IF THE HEADING HAS 

PRlNTEDi 

LOAD HEADER INDICATOR 

BRANCH TO PRINT HEADING 



NAME 

H003F 

GOl.Z 

NAME- 

6 

NAME- 

isoic 

H0Q40 

TQPAU 

NAME- 

8 

TQPA 

NAME- 

2 

TQPA 

NAME* 

4 

TQPA 

NAME 

6 

TQPA 

NAME 

TQPA 



place the name in the printer, 

buffer; 

1-X 
-X 

GO TO LUAQ A BLANK 

X 



1-X 



1-X 



LOOP 

LOAD A WLANK 

call T o ^y 

LOAD NAME 

SEPARATfc 1ST CHARACTER 

CALL TOPA 

LOAD NAME 

SEPARATfc gND CHARACTER 

CALL TOK A 

LOAD NAME 

SEPARATfc 3RD CHARACTER 

CALL 10H 

LOAD NAME 

SEPARATfc «TH CHARACTER 

CALL TQHA „ „ „ 
LOAD 5Tfi CHARACTER 
CALL TOHA 



* 



PLACE LE>T P A REN BETWEEN TH 
NAME AND THE VARIABLE TyPES, 
3 HQ04D-X 

TOPAU CALL TOHAU 

TEST TO SEE IF THE V A RJ AB LE IS 
REAL OR INTEUEH AND PLACE THE 
FIRST LETTER IN THE PRINT AREA, 

2 LOAD ID WORD 

2 PLACE TYPE IN CARRY 

3 HQ0D9-X LOAD R 

C SKIP JF R|AL 
3 HQQC9-X LOAD J 
TQPAU CALL TOKAU 

TEST TQ SEE IF THE VARIABLE IS 
IN COMMON, 
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V 



1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 



LD 
SUA 

BSC 



ID 

BSI 

MDX 



* 



ISOlD 



# 

* 



* 
* 
* 






* 
* 
* 



* 
* 
* 
* 
* 



* 
* 

* 



* 



3i_A 

ID 

BSC 

LD 

BSI 



ISOlE LD 
BSI 



LD 

BSI 



LD 

BSI 



LD 

AND 

BSC 



BSI 

LD 

S 

A 

sfo 



LD 

BSI 



LP 

BSI 
MDX 



2 o LOAD JD WORD 

2 PLACE COMMON IND. IN SJ3N 
L ISOlD, Z BRANCH ,i,F IN COMMON 

PLACE A BLANK \H THE PRINT AREA 

3 HQ04Q-X LOAD BLANK 
TQPAU CALL TOKAU 
ISOlE BRANCH 

TEST TO SEE IF THE VARIABLE IS 
TN BALNK OR IN^KEL COMMON AND 
PLACE A C OR'AN * IN THE PRINT 

AREA. 
14 PLACE INSKEL IND. IN CARRY 

3 H0QC3-X LOAD C 

C SKIP \f BLANK COMMON 

3 H0Q5C-X LOAD * 

TQPAU CALL TOKAy 



PLACE RIUHT PAREN AFTER TYP 



3 HQQ5D-X 
TQPAU 



CALL TOKAU. 

PLACE AN EQUAL SJQN IN THE 
PRINT AREA, 
3 HQQ7E-X LOAD EUUAL SIGN 
TQPAU CALL TOKAy 

PLACE THE ADURfSS OF THE FIRST 
ELEMENT IN THE VARIABLE, 
3 SALOC-X LOAD ADDRESS 
TQPAD CALL TOPAD 

TEST TO SEE IF THE VARIABLE IS 
AN ARRAY, 

2 o LOAD ID WORD 

3 H1800-X SEPEATE DIMENSION BITS 

L IS01F, - BRANCH AF NQT DIMENSIONED 

.CALL ARRL AND §ET THE DATA 
ABOUT THE VARIABLE, COMPUTE 
THE SECOND AUDKESS OF THE 
ARRAY, 



ARRL-X CALCULATE ARRAY SIZE 

VSIZE-X LOAD VAKIABLE SIZE 

ASIZE-X SUBTRACi ARRAY SIZE 

SALOC-X FIND LOW ADDRESS 

SALOC-X SAVE ZNU ADDRESS 



PLACE THE HYPHEN BETWEEN THE 
FIRST AND SECOND ADDRESS, 
3 HQ060-X LOAD MYKHEN 
TQPAU CALL T°?Ay 

PLACE THE SECOND ADDRESS IN THE 

PRINT AREA, 
3 SALOC-X LOAD 2ND ADDRESS 
TQPAD CALL TOHAD 
IS01G BRANCH 
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S^ 



V 



1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 



* 
* 
# 
ISOlF LD 

BSI 

LD 

BSI 

Lb 

BSI 
LD 

as i 

LD 
BSI 



PLACE BLANKS FOR 2ND ADDRESS IN 

THE PRINT AREA, 

3 HQ04Q-X LOAD A BLANK 

TQPAU CALL TQKAy 

3 HO04O-X LOAD A BLANK 

TQPAU CALL TOK A y 

3 HO04Q-X LOAp A BLANK 

TQPAU CALL TQKAy 

3 HOQ40-X LOAD A BUNK 

TQPAU CALL tOKAy 

3 HQ040-X LOAD A BLANK 

TQPAU CALL TOPAU 



* 
* 



IS01G LD 
3 



TEST TO SEE IF WE ARE AT THE 
END OF THE PHINT LINE, 
3 p A p„x LOAD PRINT AREA POINTER 
3 LNEND-X SUBTRACI LINE END 
3SC I INSER,Z BRANCH IF LJNE NOT PULL 



* 
* 



# 



LP 
STO 



BSI 
BSI 



RESET THE LJNE POINTER AND 
3 RPAP-X LOAD PRJNT AREA ADDRESS 
3 PAP-X INITIALIZE PRINT AREA PTR. 

PRINT THE LINE I 
. PRINT CALL PR.i.NT 



BLKPA 



BLANK THE PR.JNT AREA 



TEST IF END 9f PAQE AND HANDLE 

HEADING, 
3 HQ03C-X 
L WDCNT RESTORE 

3 RPAP-X 
I AREA RESTORE 
I IrjSER BRANCH 
************************************************** 

I END OF INSER ROUTINE 

a************************************************* 
HDNG Hp X FORTRAN ** DAfA ALLOCATION 

***************#******************.************♦*** 



LD 

3f0 
LD 

sto 

BSC 



* ROUTINE NAME/ TQPA 



* FUNCTION 

* 
* 
* 

* ENTRY 
* 

* INPUT 
* 

* 
* 

* OuTPUt 
* 

* EXTERNAL 



/CONVERT 6 BIT TRUNCATED EBCDIC 
AND CHECK FOR BLANKS, PLACING THE: 
CHARACTER IN THE>RINT AREA, 

/TQPA 

/THE A REGISTER CONTAINS. IN THE RIGH 
8 BITS THE CHARACTER TO BE PLACED 
IN THE RIGHT AREA. 

/CHARACTER IS PLOWED. 
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1500 * REFERANCES /SUBROUTINES TQPAU ARE CALLED ANjD 

1500 . REhErfANUti, ^ipERANCESTQ HU03F, HQQ40, HOOCO 

1502 * ARE MADE. 

1503 * 

1504 * ERROR /NONE 

llll * MOTE /CALLING SEQUENCE LD CHARACTER 

1507 * BSI T0PA 

1508 * 
1509 



************************************************** 



1511 * ENTRY-TOPA 

1512 TOPA DC *"* L * NK w0 " D 

ilil * SAVE THE RJQMT 6 BITS IN THE 

1515 * A REQISTfeRt TEST TO SEE IF THE 

T516 * CHARACTER IS BL^NK, 

1517 AND 3 H003F-X SAVE 6 «ITS 

iili QSC L T A 01A,Z BRANCH IF NOT BLANK 

^ [HI * LOAD A BLANK TQ BE PLACED IN 

1521 * PRINT' AREA t 

152 2 LD 3 M0040-X LOAp BLANK 

1523 MDX TAOlB BRANCH 

1525 * HAKE THE CHARACTERS EBCDIC 

1526 TA01A OR 3 HQOCO-X OR IN THE HIGH BITS 

[HI * CALL TOPAU TU PLACE CHARACTER 

t 1529 * IN PRINT AREA. 

1530 TAOlB BSI TQPAU CALL TOPAU 

1531 * 

1532 * RETURN 

1533 3SC I TOPA BRANCH 

!534 ************************************************** 

Hit * END OF TOPA ROUTINE 

^ 1538 *************************************?**:********* 

1539 HDNQ MPX FORTRAN ** DATA ALLOCATION 

1540 ************************************************** 

1541 * 

1542 * ROUTINE NAME/TOPAU 

1544 * FUNCTION /PLACE CHARACTER IN PRINT AREA, 

1545 * 

1546 * ENTRY /TOPAU 

1547 * 

1548 * INPUT /CHARACTER IN A RASTER THAT IS TO 
JUS * BE PLACED i;N THE PRINT BUFFER, 

1550 * 

1551 * OUTPUf /CHARACTER JS PLACED. 

1552 * 

1554 * REFERANCES /REFERANCES To PAP A R MADE. 

1555 * 

1556 * ERROR /NONE 

1557 * 

1558 * NOTE /CALLING SEQUENCE LD CHARACTER 

1559 * BSI TQPAU 
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V 



^ 



1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 



SfO L3 BJF 120 STORE BLANK 



************************************************** 

* ENTRY-TOPAU 

LINK WOKD 



TOPAU DC 

* 



*«# 



* 
* 



SUA 



3T0 I PAP 
MDX L PAP.l 



MOVE THE CHANACTBR TO THE LEFT 
SIDE OF. THE A REGISTER. 
M0VE I.EKT CHARACTER 

PLAGE CHARACTER JN PRINT AREA* 
PLACE CHARACTER 
INCREMENT POINTER 



* RETURN 

BSC I TOPAU 8RANCM 

************************************************** 

* E,N|D OF TOPAU ROUTINE 

* 

**************************** ********************** 
HDNG MpX FORTRAN ** QAI A ALLOCATION 

************************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



ROUTINE MAME/TOPAD 
FUNCTION 



ENTRY 
INPUT 

OUTPUT 



/place hexideglmal address in the 

print area, 

/topad 

/hexidecimal word 18 in the a 

REGISTER. 

/THE FOUR HEXIDECIMAL CHARACTERS ARE 
PLACED IN "THE PRINT AREA. 



External 

REFERENCES /SUBROUTINES TQPaH tfE CALLED AND 
REFERANCES~TQ SAVAD|H400Q ARE 

HADE, 



ERROR 
NOTE 



/HONE 

/calling sequence ld address 

bsi topad 



************************************************** 



* 
* 
TOPAD DC 

* 
* 
* 



ENTRY-TOPAQ 
*»* LINK WOKD 



SAVE ADDKESS TO BE PLACED IN 
THE PRINT ARtA, 
SfO 3 SAVAD-X SAVE ADURiSS 



* 
* 
* 



LD 



2 



TEST TO SEE IF ADDRESS IS FOR 
INSKEL COMMON, 

LOAD ID WORD 
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^ 



1620 
1621 
1622 
1623 
1624 
1625 
1626 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 






* 
• 
* 



31 a ig PLACE INSKEL IND. IN SJQN 
BSC L TD01A,* BRANCH IF NOT INSKEL COMMO 

ADJUST THE SAVED ADDRESS FOR 

INSKEL COMMON. 
3 SAVAD-X LOAD SAVED ADDRESS 
3 H4000-X ADJUST ADDRESS FOR INSKEL 
3 SAVAD-X STORE SAVSD ADDRESS 



LD 

S 

SfO 



TDOlA LD 
SRA 

BSI 

LD 

SRA 

BSI 

LD 

SRA 

BSI 
uD 

BSI 



PLACE THE HEX ADD«ESS IN THE 
PRINT AREA | 

3 SAVAD-X LOAD SAVED ADDRESS 

1 2 ISOLAJE 1ST HEX CHARACTER 

TQPAH CALL fOKAM 

3 SAVAD-X LOAD SAVED ADDRESS 

8 ISOLATE 2ND HEX CHARACTER 

TQPAH CALL TOKAH 

3 SAVAD-X LOAD SAVED ADDRESS 

4 ISOLATE 3RD HEX CHARACTER 

TQPAH CALL TOMAH 

3 SAVAD-X LOAD 4TH HEX CHARACTER 

TQPAH CALL TOHAM 



* RETURN 

BSC I TQPAD BRANCH 

********************************** **************** 

* END OF TQPAD ROUTINE 

************************************************** 
HDNQ MPX FORTRAN ** 0AU ALLOCATION 

****************************** ******************** 
* 

* ROUTINE NAME/ TQPAH 

/THIS ROUTINE CONVERTS A 4 BIT 
HEXIDEC1MAL DISH TO AN EBCDIC 
CHARACTER AND PLACfc IN PRINT AREAt 



/TOPAH 

/HBXIDECIMAL DI8II IN A REGISTER, 

/EBCDIC CHARACTER IS PLACED IN THE ! 
PRINT AREA, 



* FUNCTION 

* 
* 
* 

* ENTRY 
* 

* INPU T 
* 

* OUTPUf 
* 
* 

* External 

* REFERENCES /SUBROUTINES TQPA ARE CALLED AND 

* REFERENCES' TO HUOQF,H0Q09, H0039 

* ARE MADE. 

* 

* ERROR /NONE 

* MOTE /CALLING SEQUENCE L° -DIGIT 
„ BSI TOPAH 



**#********•*********#** 

* 
* 
TOPAH DC *»* 



*************************** 



ENTRY-TOPAM 

LINK WOKD 
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^w 



^w 



1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 

1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 



* 
* 
* 

* 
* 

* 



* 
* 



AND 



3 
QSC 

A 



SSI 



SEPARATE THE LAST HEX CHARACTER 
IN T HE A REGISTER, 
3 HQ00F-X HOLD RIGHT HEX CHARACTER 

TEST AND ADJUST 9"9 TO /30-/39 

AND A-F TO /Ul»/Q6 
3 H0009-X CHECK AGAJNST 9 

SKIP JF AwF 
3 H0039-X ADJUST NUMBERS 0-9 

CALL TOPAU TU PLACE THE 
CHARACTER |N' THE PRINT AREA, 
TQPA CALL TOHA 



RETURN 
BSC I TQPAH BRANCH 

**************************** ********************** 

* END OF TOPAH ROUTINE 

* 
************************************************** 

HDNG MPX FORTRAN ** DATA ALLOCATION 
******************************* V***************** 

* ROUTINE NAME/BLKPA 

* FUNCTION /CLEAR THE PRINT AREA TQ BLANKS, 



/BLKPA 

/PRINT AREA IS CLEARED* 



* ENTRY 

* OUTPUT 

* 

* EXTERNAL 

* REFERANCRS /REFERANCES To Huo40 # PaREA ARE 

* HADE. 



* ERROR 

* 

* NOTE 



/NONE 

/CALLING SEQUENCE BS I BLKPA 



******************** 



******************************** 



BLKPA DC 



ENTRY-BLKPA 
ISOlC WINK WOKD 



* 
* 



* 
* 
* 

* 
* 



CLEAR THE PRINT AREA USING 

INDEX REGISTER 3, 
LD 3 H40QO-X 

LDX 3 -120 LOAD XR3 WITH -120 
STO L3 ByF 120 BLANK PKINT AREA 
HDX 3 1 INCREMENT XR3 BY 1 
HDX **4 BRANCH 

RES T ORE iNDE* REGISTER 3 TO 
POINT LITERAL POOL, 
LDX L3 X LOAD XR* 

RETURN 
BSC I BLKPA BRANCH 



SEltE 30 



V. 



1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 



MDNG HP* FORTRAN ** DATA ALLOCATION 
************************************************** 



* ROUTINE NAME/ALLOC 



/ALLOCATE ALL COMMON AND NON- 
EQUIVALENCED VARIABLES. 



* FUNCTION 
* 

* ENTRY 

* 

* INPUT 

* 
* 

* QtJTPUf 

* 
* 
* 

* external 

* REFERENCES /SUBROUTINES ARRL, JNSER, VARFO ARE 

* CALLED AN REFERANCES TO TRACK, BASE 

* ««rcr ^qi7P.i rnMN.KHUD.VSIZP.RELAD, 

* 
* 
* 

* ERROR 

* 

* NOTES 

* 
* 
* 
* 
* 
* 
* 



/ALLOC 

/HO SPECIAL INPUT OTHER THAN THE 
SYMBOL TABLE, 

/THE PART OF THE SYMBOL TABLE THIS: 
IS CONTROLED BY THE PRESENT SETTING 
OF TRACK SWITCH IS ALLOCATED. 



S0FST,C3IZE,LCQMi>i,SCWD,VSIZE,RELAD, 
D4 f Hl8Ci'#EOFST-,Hb088,H07D2#H0001, 
VARCR.CAC ARE MADE. 



/NONE 

/CALLING SEQUENCE 



BSI ALLOC 



TRACK SWITCH CONTROLS THE ALLOCAT10 
qF PARTS OF THE SYMBOL TABLE AS 

FOLLOWS 

PLUS -COMMON 

ZERO -REAL VARIABLES 

MINUS-'INTEGER VARIABLES 



** 



********************* 



*************************** 



ALLOC DC 

* 
* 
* 

* 
* 
* 
AL01A LD 

BSC 
BSC 

* 
* 
* 



LDX 12 SQFST 



ENTRY-ALLOC 
*„* LINK WOKD 

LOAD INDEX RfcGjSTER 2 WITH THE 
START OF TME'SYMBQL TABLE, 
LOAD XR* 



* 
* 
* 



LD 

BSC 



SLT 

LD 

SRT 



TEST TRACK SWITCH TO DECIDE 
THE ALLOCATION TQ BE PREFORMED. 
3 TRACK-X LOAD TRACK SWITCH 
L AL01B,- BR TO ALLOC, REAL SYMBOLS 
L ALQ1C,-Z BR TO ALLOC, INTEGER SYMBQ 

TEST TO SEE IF PRESENT SYMBOL; I 
A CONSTANT| 
2 o LOAD INDICATOR WORD 
L AL01D, Z BR JF CUN8TANT 

REPOSITION SYMUQL TABLE NAME TO 
READY FOR LATER PRINTING. 

i 6 clear' q" 

2 2 LOAD H!«HI 2 CHARACTERS 
13 PLACE IN REGISTER 
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v_ 



^ 



1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 

1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 



* 
* 



* 
* 






* 
* 
* 
ALOlF 

* 
AlOlG 

* 
* 
* 



* 
* 

# 



ID 

3LT 

RfE 

3T0 
RtE 

sfo 



LD 
SLA 

BSC 



SLA 

BSC 



LD 
MDX 



* 



* 



# 
* 
* 



* 
* 



LD 



SfO 
BSC 



LD 
SLA 

asc 



k& 
SLA 

BSC 



ALOlH 



2 1 

1 

2 
2 1 

16 
2 2 



LOAD lEH 3 CHARACTERS 
REMOVE LEADING BIT 

STOKE RbPOSlTlONED NAME 



TEST TO SEE IF VARIABLE IS IN 

COMMON,' 

2 o LOAD INUIQATOR WORD 

2 PLACE COMMON IND. IN SIGN 
L ALOtE,* 8 * l F N ^ T IN c0 MMON 

TEST TO SEE IP COMMON VARIABLE 
IS IN INSKEL COMMON 
13 PLACE INSKEL IND. IN SIGN 
L ALOlF, Z BR JF IN INSKEL COMMON 

PLACE BLANK COMMON ADDRESS IN 

BASE. 
L CSIZE LOAD BLANK COMMON ADDRESS 
ALOlQ SAVE BASE AND BRANCH 

PLACE INSKEL COMMON ADDRESS IN 
BASE. 

3 LCS-X LOAD jNSKfcX COMMON ADDRESS 

TEST THE ADDMESS IN BASE FOR 
BEING ODD. 
3 BASE-X SAVE BASE 
L ALQ1H,E BR IF BASE IS ODD 

TEST THIS SYMBOL FOR BEING 
REAL • 
2 LOAD INDICATOR WOR 

1 PLACE RfcAL, IND, IN SIGN 
L ALOlH, Z BR. IF INTEGER 



L 



MDX L 



BSI 



LD 
S 

STO 



TEST TO SEE IF THIS PROGRAM IS 

STANDARD PRECISION. 
CCWD LOAD CONTRQi CARD WORD 
13 PLACE PMEQISION IN SIGN 
ALftiH, Z B* IF EMENDED PRECISION 

CORRECT BASE TO BE ODD FOR THE 
RIGHT WORq 0* 8T A NdaRD PREcISJO 
REAL SYMBOLS! 
BASE.-l DECRAMENT BASE BY 1 

CALL ARRL TO DETERMINE THE SI2 
OF THE SYMBOL ELEMENTS, 
3 ARRL-X CALL ARKL 

UPDATE THE AUDRESS OF COMMON 

BEING HANDLED. 
3 BASE-X LOAD BASE ADDRESS OF SYMBO 
3 ASIZE-X SUBTRACT ARRAY SIZE 
3 BASE-X SAVE ADJUSTED BASE 

TEST TO SEE IF THE COMMON SYMBO 
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^w 



I860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 



* 



LD 
OSC 



LD 

STO 

MDX 



ALOlK LD 

sfo 

* 

* 

ALOlJ LD 



* 

* 



ALOlD LD 
AND 

asc 
* 
* 



* 
* 

* 
* 
* 
* 



MDX 



MDX 



* 
* 



* 
* 



* 



STX 

LD 

S 

BSC 



LD 

A 

sfo 



ID 
2 
L AL0lK,E 



IN- INSKEL COMMON, 
LOAD INDICATOR WORD 

BR ir inskel common 



PLACE COMMON BASE ADDRESS BACK 
FOR BLANK COMMON, 
3 BaSE-X LOAD ADJUSTED BASE ADDRESS 
L CSIZE SAVE FOK pLANK COMMON 
ALOlJ COMP ADUR AND INSERT 

PLACE COMMON BASE ADDRESS BACK 

FOR INSKEL CUMMON, 
3 BASE-X LOAD ADJUSTED BASE ADDRESS 
3 LCS-X SAVE FOH JNSKEL COMMON 

COMPUTE THE ADDRESS OF THE 

SYMBOL, 
BASE-X LOAD BASE ADDRESS OF SYMBO 
ASIZE-X ADD ARRAY SjZE 
VSIZE-X COMPUTE ADDRESS OF LEFT 
HQ001-X WOHD 



ALOlL BSI L 



INSER 



CALL INSER TO 
IN THE SYMBOL 



PLACE ALLOCATION 
TABLE, 



CALL JNSEN 



2 

3 



TEST TO SEE IF PRESENT SYMBOL 
TABLE ENTRY IS DIMENSIONED. 

LOAD JNOICATOR WORD 
HlBOO-X SAVE DIMENSION IND. BITS 

1 SKIP IF' NOT DIMENSIONED 



Z -3 



MOVE SYMBOL 'ABLE POINTER OVER 
THE DIMENSION INFORMATION, 

MOVE SYMBOL JABLE POINTER TO 
NEXT SYMBOL, 



TEST TO SEE IF POINTER HAS 
PASSED OVER THE WHOLE SYMBOL 
TABLE, 
12 D4 SAVE PRbSENT POINTER 
3 D4»X TEST FOM |ND OF TABLE 

i c rtC" C T 

L AL01A,Z- BR, JF NUT END OF TABLE 

MOVL THE TRAOK SWITCH TO ITS 

NEXT POSITION. 
3 TRACK-X LOAD TRACK SWITCH 
3 H0001-X MOVE TO N6XT POSITION 
3 TRACKS STORE TKAQK SWITCH 



BSC I ALLOC 



RETURN 



ALOlE LD 



2 



RETURN 

TEST TO SEE IF THE PRESENT 
SYMBOL IS A GENERATED TEMPORARY 
LOAD JNUICATOR WORD 
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^- 



V. 



1920 

1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 

1962 
1963 
1964 

1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 






* 
ALOlB 



* 
ALOlC 



* 
AL.01M 

* 
* 



* 
* 
* 

* 



* 
# 
* 



* 
* 

ALOli 

# 
* 



LD 

AND 

EQR 
3SC 



LD 
SUA 

esc 



LD 
A 

sfo 
s 

MDX 



BSI 



LD 

A 

sfo 



SLA 
BSC 



LD 

3T0 

MDX 



LD 

sLa 

BSC 
BSI 
HfiX 



LD 

SLa 

BSC 



BSC L 



12 PLACE GiT| IND IN SIGN 
AL.01P,- BR IF NUT G,T. 

make sure ALL 9.T1S are real 

VARIABLES. 
HQQ2B-X LOAD NEW INDICATOR WORD 
SAVE FOK fl.Ti IND. WORD 

aloid chk if Dimensioned 

test to see if present symbol 

IS REAL. 

LOAD INUICATOR WORD 

1 PLACE RfcA), IND, IN SIGN 
AU01D, Z Brt IF NUT REAL SYMBOL 
EVENA-X MAKE ADDRESS EVEN 
AL01M CHK IF CONSTANT 

TES T TO SEE IF PRESENT SYMBOL: 
IS INTEGER, 

LOAD {NUigATQR WORD 

1 PLACE JNTSGER IND, IN SIGN 
AU01D#- B* * F H 9 T INTEGER SYMBOL 

TEST TO SEE IF PRESENT SYMBOL; 
IS CONSTANT,' 
ALQ1N,C BR IF CONSTANT 

TEST TO SEE IF THE SYMBOL 
SHOULD BE ALLOCATED NOW, 

2 LOAD INUICATOR WORD 

3 HQ7F2-X SAVE SOME IND, 0ITS 
3 HQ020-X 

L ALOID, Z BR IF SHOULD NOT BE ALLOC, 

TEST TO SEE IF THE PRESENT 
SYMBOL IS A SUBSCRIPT GENERATED 
TEMPERARY. 
2 LOAD INDICATOR WORD 

13 PL/ACE SiG.T, BIT IN SIGN 
L AL01I,- BR IF NUT S,G.T. 

ADJUST THE VARIABLE AREA SIZE 



8Y 
VaRCR-X 

H0001-X 
V A RcR-X 

HQQQl-X 

ALOlL 



LOAD VAHIABLE ADDRESS 

INCRAMENT By 1 

SAVE VaKUBLE ADDRESS 

DECREMENT BY 1 

GO INSERT 



CALL ARRL TO FIND THE AMOUNT OF 
STORAGE: REQUIRED FOR THIS 
VARIABLE, 
3 ARRL-X CALL ARNL 

MODIFY THE SIZE OF VARIABLE 

STORAGE. AREA* 
3 VARCR-X LOAD VARIABLE ADDRESS 
3 ASIZE-X ADJUST ?OK SIZE OF SYMBOL 
3 VARCR-X SAVE VAKUBLE ADDRESS 
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1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 



* 
* 



AL01N BSI 

* 

* 

LD 
A 

sfo 



COMPUTE ADDRtSS QF SYMBOL 
S 3 VSIZE-X REMOVE ELEMENT SIZE 
MDX AU01L GO INSEHT 

CAU VARFO TU QOMPUTE SIZE OPi 

constant, 
3 vaRfo-x call vakfq 



INCRAMENT THb SIZE OF THE 
CONSTANT AREA. 
3 CAC-X LOAD CONSTANT AREA COUNT 
3 VSIZE-X INCKAMENT BY CONSTANT SIZE 
3 CAC-X SAVE CONSTANT AREA COUNT 
AL.01D CHK IF UIMENSIQNED 
***********+**********•********•****************** 

* END OF ALLOC KOUTl.NE 

*******;****************************************** 

HDNQ MPX FORTRAN ** DATA ALLOCATION 
i,********************* **************************** 

* ROUTINE NAME/EQUIV 



/THIS ROUTINE HANULES THE EQUIVALENC 
STATEMENT FOR BOTH COMMON AND NON- 
COMMON VARIABLES.. 



/EQUlV 

/NO SPECIAL INPUT OTHER THAN THE 
STRING AND SYMBOL fABLE WITH ALL 
COMMON VARIABLES ALLOCATED, 

/VARIABLES NOT JN EQUIVALENCE ARE 
NOT ALLOCATED . 



* FUNCTION 

* 
* 

* ENTRY 
* 

* INPUT 

* 
# 

* OUTPUT 

* 
* 

I REFERENCES /SUBROUTINES INI1.|NcR#EVENa.RMOVE, 

* QETD4#RTN#HIL0|INS|R ARE REQUIRED 
AND REFERENCES TO SW1,5W2,SW3,SW4, 

* LOW, HIGH* DEFJN,TAGLJ>,HQC00,CARCR, 

* gASE / H0300,NHA|SNRA#D4,RELAD,H002D, 

* HB000 ARE REF6RAN9EDi 

* ERROR /ERROR C~65 IS DETECTED AND CONTROL 

* IS TRANSFERER TO ERR65. 

* 
* 
********************** 

* 

EQUIV DC *«* 

*■ 
* 
* 

SLA 16 



********* ** **************** 

ENTRY •> EQUIV 
LINK WOKD 

CLEAR VAKCR TO EQUIVALENCE 
COMMQN VARIABLES 



5fO 3 VARCR-X 
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2040 * INITIALIZE NfcST UIMITS, 

2 41 EQ01D SLA 16 CLEAR A RJQjSTBR 

2042 SfO 3 LOW-X PLACE ZbRO J-N LOW 

2043 STO 3 HIGH-X "122.. 

2044 SfO 3 ODDSW-X ODDjW 

2045 SfO 3 EVSW-X fVSW 
2546 STO 3 DEFIN.X AND OEFlN 

llll * SET SWITCH 4 TQ NORMAL. 

2049 EQ01H Si A 16 P^QE ZtRQ JN SW4 

2050 SfO 3 SW«-X 

1S«2 * CALL INIT TO FJND FIRST NON- 
2553 * DELETED NEST IN EQUIVALENCE 

2054 * STATEMENTS. 

2055 EQOH B|I 3 INJT«X CAUC JNIT 

iS 5 6 DC EQ03B 8R IF END OF ALL EQUIV, 
2057 DC * n 9 Rmal - ? E TUR N 

2099 * SET SWITCH 2 TQ NORMAL 

2060 SLA 16 PUCE ZbRO JN SW2 

2061 SfO 3 SW2-X 

lot § ! TEST THE LEFT PARENTHESIS IN 

2064 * NEST TO 5E6 IF' VARIABLES IN 

2065 * THIS NEST HAVE BEEN LOOKED AT', 

2066 EQ01A L D 1 -i: j-gAJ ^ T ^A«ENTH|SlS 

2067 S 3 TAQLP-X TEST FOR TAQED PARENTHESIS 

2068 BSC L EQ01Q,Z BR |F L|FT PARENTHESIS OK 

2069 * 

2070 * INCREMENT JHb pEM POINTER TO 

2071 * THE NEXT SYMBO^ 

2072 BSI 3 INCR-X CALL JNWR 

2073 DC EQ01F BR I'F END OF ALL EQUIV, 

2074 DC EQ01A BR JF END OF NEST 

2075 MDX *«4 LOOP SAW 

IS77 * TES' THE SYMBOL BEING LOOKED 

207 8 J AT FOR BEING ' IN COMMON , 

2079 PQ01G LD 2 LOAD INDICATOR WORD „ K , 

2080 SLA 2 PLACE COMMON INJJ. IN SIQN 
till BSC L EQ02B, Z B* IF SYMBOL IN COMMON 

gjgj * TEST THE SYMBOL BEING LOOKED 

2084 



Z a t f" 0R BEING ALLOCATED • 



2085 AnD 3 HQCOO-X 

HI? bSc L 3 E H §^; X - BR IF SYMBOL BEING A LOCaT E 

2089 * INCREMENT THb JTEH POINTER TO 

2090 * THE NEXT SYMBOL. 

2091 EQOU BSI 3 INCR-X CALL I.NUR 

2092 DC EQ01F BR- IF END OF ALL EQUIV, 

2093 DC EQ01A BRANCH l.F END OF NEST 

2094 MDX EQ01G LOOP BA^K 

2095 * 

2096 * TAG SWITCH 4 

2097 EQ01E SfO 3 S'rf4-X PLACE NUNZERQ IN SW4 

2098 MDX EQ01I LOOP BAUK 

2099 * 
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2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 
2158 
2159 



EQQlF Lp 
BSC 



BSC 



* 

* 

* 

* 
* 



* 
* 
* 



BSI 



LD 
BSC 



LD 

BSC 

MDX 



EQ03G LD 
BSC 



EQ03H LD 
S 
SfO 

* 

* 
* 
# 
EQ03I LD 

S 

SfO 

A 

A 

sfo 

* 

* 

BSI 

DC 

DC 

* 

* 

* 

EQ01C LD 
AND 

EOR 
BSC 



TES T SWITCH i 
3 SW2-X LOAD SWITQH 2 
L EQ01E,Z BR IF SWITCH 2 TRANSFER 

TEST SWITCH 4 
3 SW4-X LOAD SWITCH 4 
L EQQ3B, - BRANCH IF SWITCH 4 NORMAL 

CALL EVENA TU MAKE VARCR EVEN 
3 EVENA-X CALL. EVfcNA 

TEST TO SEE IF THfc L.OW ADDRESS 
FOR THE NEST JS OUD, 

3 LQW-X LOAD LOW ADDRESS 
L EQQ3G,E BRANCH IF ODD 

TEST TO SEE IF THte ODD SWITCH IS 
SET ON. 

3 ODDSW-X LOAD QDU pjTCH 
L EQ03H,Z BRANCH UDD SWITCH ON 
EQ031 BRANCH 

TEST TO SEE IF THfc EVEN SWITCH IS 
SET ON, 

3 EVSW-X LOAD EVfcN SWITCH 
L Eg03l, - BRANCH i.F EVEN SWITCH OFF 

SUBTRACT 1 FROM LUW 



3 LOW-X 
3 H0001-X 
3 LOW-X 



CALCUUJ.E LOW LQW-i 



ADJUST VARIABLE AREA TO INCLUDE 
THE PRESENT NEST, SAVE IN BASE 
THE ADDRESS US|D FOR ALLOCATION 
OF THE NESTt 
3 VARCR-X LOAD VARIABLE ADDRESS 
3 LOW-X SUBTRACI |,QW ADDRESS 
3 BASE-X SAVE BASE PQR N|ST 
3 HIQH-X ADD HIGH ADDRESS 
3 HQ0Q1-X INCREMENT 
3 VARCR-X SfOHE AUJySTED ADDRESS 

CALL INIT TO FJND FIRST NON- 
DELETED NEST IN EQUIVALENCE 
STATEMENTS, 
3 INIT-X CALL INJ.T 

* BR IF END OF ALL EQUIV, 
NORMAL KETURN 

TES T SYMBOL, BEING LOOKED AT 
FOR BEING ALLOCATED, 

2 o LOAO |NUICAfOR WORD 

3 HQ300-X 
3 HQ300-X 

L EQ03A, - BR IF SYMBOL BEING ALOCATE 



SEITE 37 



1J 6 i # INCREMENT THte JTEM POINTER TO 

2i62 * THE NEXT SYMBOL 

2163 BSI 3 IMCR-X CALL JNUR 

2164 DC EQ01B BR JF END OF ALL EQUIV, 

2165 DC EQ01C BR JF END OF NEST 

2166 MDX **4 LOOP BAUK 

216 8 * REMOVE BEING ALLOCATED BITS 

2169 * FROM SYMBOL UBLEi 

2170 EQ01B BSI L RM.OVE CALL RMUV6 

2171 MDX EQ03B GO TEST SW3 

2172 * 

2173 * TEST SWITCH 1 

2174 EQ02A ID 3 SW1-X LOAD SWi 

2175 BSC L EQ02C, - BR IF SWITCH 1 NORMAL 

2176 * 

2177 * SAVS THE PRESENT POSITION AND 

2178 * READY FOR A §CAN TO FIND THE 
2J79 * ALLOCATION FUR THIS VARIABLE, 

2180 SfX 1 EQ02G 1 SAVE XR1 

2181 SfX 2 EQ02G 3 SAVE XR* 

2i82 LD 3 NRA-X SAVE NEST RETURN ADDRESS: 

2183 SfO 3 SNRA-X 

2184 * 

2185 * CALL INIT TO FJND FIRST NQN» 

2 18 6 * DELETED NEBT IN EQUIVALENCE 

2187 * STATEMENTS, 
2108 BSI 3 INIT-X CALL |NIT 

2189 DC * BR IF END OF ALL EQUIV, 
23,90 DC * NORMAL KETURN 

2191 * 

2i92 * TEST THE LEFT PARENTHESIS IN 

2193 * NEST TO SEE IF VARIABLES IN 

2194 * THIS NEST HAVE BEEN LOOKED AT", 

2195 EQ02D LD 1 ~1 LOAD I.EKT PARENTHESIS 

2196 S 3 TAGLP-X TEST FOK TAQED PARENTHESIS 

2197 BSC L EQ02E, - BR IF PARgNTHESIS TAGED 

tilo * INCREMENT THfc JTEM POINTER TO 

2200 * THE NEXT SYMWOf 

22?2 DC 1 3 EcUzD* BR IF END OF ALL EQylF, 
ilo3 DC E902D BR IF END OF NEST 

2204 MDX *«4 LOOP BAUK 

2205 * 

2206 * TEST SYMBOL *EjNQ LOOKED AT 
||q7 * TO SEE IF IT IS SAME aS SAVED 

2208 * ONE- 

2209 EQ02E LD I EQ02G 1 LOAD SAVE SyMBOL 

22io S 1 COMPARE PRESENT SYMBOL 

2211 BSC L EQ02F, - BR JF SYMBOLS SAME 

2212 # 

2213 * INCREMENT THfe jTgM POINTER TQ 

2214 * THE NEXT SYMBOL. 

2215 BSI 3 INCR-X CALL JMR 

2216 DC EQ02D B« IF END OF ALL EQUIV, 

2217 DC EQ02D BR IF END OF NEST 

2218 MDX EQ02E LOOP 8AVK 

2219 * 
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2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 



EQ02F 

* 
* 
* 

* 
* 



BSI 



RSI 



* 
EQ02G 



LD 

A 

sfo 



LDX 

LDX 

LD 

SfO 

MDX 



* 
* 



* 
EQ02B 



* 

* 



* 
EQ02C 

* 
EQ02I 



* 
EQ02H 

* 
* 



* 
* 

* 



EOR 
SLA 

BSC 



LD 

sfo 

HDX 



SLA 
STO 



stx 



BSI 



LD 
3 

sfo 



BSI 



LD 



GET THE Q4 FUR THE VARIABLE 
THAT IS: BEJNW ROOKED AT, 
3 GETD4-X CALL aE£D4 

RETURN PQINTfcR TO THE BEGINNING 
OF THE PRESENT NEST, 
3 RTN-X CALL RTN 

CALCULATE RELATIVE ADDRESS 
FOR VARIA8(,E"F0UND IN SAVED 

NES". 
i % LOAD NEST ADDRESS 

3 d 4 „x ADD 04 ?0R VARIABLE IN NES 
3 RELAD-X SAVE RELATIVE ADDRESS 

RESTORE POIN1EH TO SAVED 
POSITION IN UTHER NEST, 

Ui *** RESTORE' XR1 

U2 *„* RESTORE XR2 

REPLACE NiST RETURN ADDRES 



3 

3 



SNRA-X 

MRA-X 
EQ02H 



3 PASSW-X 

13 
L EQ01J,Z 



GO GET 04 
IS IT THfe CORRECT COMMON 

TEST PASS SWITCH 
PLACE INSKEL IND IN SIGN 
BR JF NUT CORRECT COMMON! 



GET RELATIVE ADDRESS IN COMMON 

PROM SYMBOL IABLEi 

2 1 LD VARIABLE BASE ADDRESS^ 

3 RELAD-X PLACE IN HELAD, 
EQ02I TAG SHI 

PLACE ZERO IN RELATIVE ADDRESS 
16 STORE ZbRO JN RELAD 
3 RELAD-X 

TAG SWITCH 1 
LO SMI P ^ A CE XKO IN SW1 

GET THE 04 FUR THE VARIABLE 
THAT IS SEINU LOOKED AT, 
3 GETD4-X CALL QETD4 

REMOVE THE D4 FOR THE PRESENT 
VARIABLE FROM THE RELATIVE 
ADDRESS. 

3 RELAD-X LOAO RELATIVE ADDRESS 

3 D4-X REMOVE 04 

3 RELAD-X STORE RfeLATjVE ADDRESS 

RETURN POINTER TO THE BEGINNING 
OF T HE PRESENT NEST, 
3 R T N-X CALL RTN 

PLACE THE ADORiSS FOR THE NEST 
IN THE'NEST, 
3 RELAD-X LOAD RELATIVE ADDRESS 
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2280 SfO 1 1 PLACE AUDHESS IN NEST 

1111 * TAG TH£ : LEFT PARENTHESIS IN THE 

2283 * NEST BEING WURKED ON, 

2284 LD 3 TAQLP-X LOAD TA«ED LEFT PARENTHESI 

2 2 8 5 SfO 1 -1 PLACE OVER OTHER PAREN, 

2286 * 

2287 * TAG SWITCH 2 

2288 SfO 3 SW2-X PLACE NUNnZgRO IN SW2 

llll * SET THE BEJNW ALLOCATED BITS 

2201 * IN THE SYMBOL TABLE INDICATOR 

2 oo 2 * WORD AS STATEMENT NUMBER AND 

H93 * ARl-HMETic STaTEHENT FUNCTION , 

2294 EQ02J LD 3 ALOCB-X SAVE INSKEL BIT 

2295 AND 3 HQQOl-X 

i?96 oS 2 PLACE IN JND WD 

2297 OR 3 H0300-X ADD BEING ALLOCATED BITS: 

2298 SfO 2 ' STORE INDJCATQR WORD 

2299 * 

2300 * CALL HILO TO ADJUST THE HIGH 

2301 * AND LOW LIMI1S ON THIS NEST 

2302 * AS WELL AS DfcCjDE IF THIS NEST 

2303 * IS DEFINED, 

2304 BSI 3 HILO-X CALL HlLO 

Hoi * INCREMENT THte JTEM POINTER TO 

2307 * THE NEXT SyM&OL, 

2308 BSI 3 INCR-X CALL JNCR 

2309 DC EQ01E BR IF END OF ALL EQUIV 

2310 DC EQ01A BR JF END OF NEST 

2311 MDX EQ02J LOOP SACK 

Ull * TEST TO SEB 1 HAT THE NEST NOW 

23T4 * BEING ALLOCATED JS DEFINED, 

2315 EQ03A LD 3 D6FIN-X LQA0 JNUIQATOR FOR NEST 

2316 AND 3 HQD20-X SAVE QNLY DEFINED BIT 

2317 BSC L ERR65, - BRANCH JF NOT DEFINED 

23^9 * PLACE RELATIVE A0DRESS FOR NBST 

2320 + IN RELAD. 

2321 LD 1 1 LOAD NE*T RELATIVE ADDRESS 

2322 A 3 BASE-X 

2323 SfO 3 RELAD-X STORE IN. RELAD 

HIS I CHANGE THE LteFT. PARENTHESIS FOR 

llll I THE NEST Rillo ALLOCATED TO THE 

2327 * CODE FOR DELfeTg. 

2328 LD 3 H3OQQ-X LOAD DELETE CODE 

2329 3T0 1 -1 STORE OVER LEFT PARENTHESI 

233J I CALL GETQ4 TU «ET D4 FOR THE 

2332 * VARIABLE BEING LOOKED AT, 

2333 EQ03D BSI 3 GETD4-X CALL 6ETD4 

2334 # 

0335 * ALLOCATE VARIABLE AND CALL INSE 

2336 * TO PLACE ALLOCATION IN SYMBOL 

0337 * TABLE AND RRiNT JF REQUIRED 

2338 LD 3 RELAD-X LOAD NEST ADDRESS 

2339 A 3 D4-X ADD VARIABLE S D4 
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2340 BSI L INSER INSERT AND PRINT 

I342 I INCREMENT THfc pgH POINTER TQ 

2343 * THE NEXT SYMBOL 

2344 BSI 3 INCR-X CALL INCR 

2345 DC EQ01B BR IF END OF ALL EQUIV 

2346 DC EQ01C BR JF END OF NEST 

2347 HDX EQ03D LOOP BAWK 

2348 * 

2349 * TES" SWITCH 4 
2"*50 PQ03B LD 3 SW3-X LOAD SWiTQH 3 

2350 EQ03« LD c ^ E JJ 3 g #z B R IF SWITCH 3 TRANSFER 

I353 * INITIAUIZE THE VARUBUE AREA 

2354 LD L DFCNT LOAD 0EMNE FILE COUNT 

2355 StO 3 VARCR-X STORE IN VARIABLE CORE 

2357 * TEST FUR INSKEL PASS 

^ 2359 * HDX L AUOCB,l ALTER ALLOCATION BITS 

2360 LD 3 PASSW-X LOAD PAS* SWITCH 

2361 HDX L PASSW,4 ALTER FAIS SWITCH 

2362 BSC L EQ03C, - BRANCH ir INSKEL PASS 

«64 I ALTER THE ALLOCATION BITS SO AS 

2365 * NOT TO REFLECT COMMON. 

2366 LD 3 HQ022-X 

2367 STO 3 ALOCB-X 

2368 * 

2369 * TAG SWITCH 3 

i3 7 StO 3 SW3-X SET SWITCH 3 NON-ZERO 

2372 * CALL XNIT TO FJND THE FIRST 

2373 I NON-DELETED NEST IN EQUIVALENCE 

2374 * STATEMENTS 

2375 EQ03E BSI 3 INIT-X CALL I NIT 

2376 DC EQ03F BR JF END OF ALL EQUIV, 

2377 DC * NORMAL ™E]URN 

I379 * SET THE BE1NU ALLOCATED BITS IN 

2380 * THE SYMBOL TABLE FOR THIS 

2381 * VARIABLE, SfeE BQ02J 

2382 LD 2 LOAD JNUICATOR WORD 

2383 OR 3 H0300-X ADD BEING ALLOCATED BITS 

2384 StO 2 STORE IND, WORD 

2386 * NORMALIZE SWITCH 1 

2387 SLA 16 PlJ T ZE« U . JN SHI 

2388 StO 3 SW1-X 

2389 BSC L EQ01D BRANCH 

2390 * 

2391 * NORMALUE SW1 

2392 * 

2393 EQ03C S^A 16 PUT ZERU JN SHI 

2394 STO 3 SWi-X w Q „ M 

2395 BSC L EQUIV 1 GO TO EUUJV RTN 

2396 * 

2397 * RETURN 

2398 EQ03F BSC I EQUIV RETURN 

2399 **#**♦*♦#******#***************•*♦**************** 





SEItE 


41 








2400 


* 












2401 


* 






END OF EQU IV 


ROWTINI 


2402 


* 












2403 


#*********' 


*****#**#***- 


«•****#* ##**t ##*****##******■ 


2404 


* 












2405 


* 












2406 


•PRINT ROU" 


HNE FOR PHASES 


20,21*28,23,24.25 


2407 


* 


!NPU" 


r IS IN EBCIDIC* 


X-QHi/WORD IN BITS 0-7 


2408 


* 


UUTPl 


JT [ 


JSES LIO 






2409 


* 












2410 




ORG 




OVERL+3*; 


320* 


10 


2411 


AREA 


DC 




*w* 




PRiNT DATA ADDRESS 


2412 


PRINT 


DC 




*«,* 




BNIRY 


2413 




sfx 


1 


svxri 




SAVE INDEX REGISTERS 


2414 




sfx 


2 


SVXR2 






2415 




sfx 


3 


SVXR3 






2416 




Lpx 


12 


AREA 






2417 




3TX 


2 


CNV00+2 




MESSAGE ADDRESS 


2418 




LDX 


3 









2419 




LDX 


12 


WDCNT 




NUMBER OF WORDS 


2420 


CP01 


3SI 




c^voo 




QONVfRT TO ASCII 


2421 




SUA 




8 






2422 




STO 




CP02 




SAVE LEFT CHAR. 


2423 




BSI 




CNVOO 






2424 




OR 




CP02 




PAUK TWO CHAR, 


2425 




sfo 


L3 


BjF 




STURf PACKED CHAR, 


2426 




HDX 


3 


1 






2427 




MDX 


2 


-1 






2428 




HDX 




CP01 




CONVERSION LOOP 


2429 




B$I 


L 


LJO 




PRINT LINE 


2430 




DC 




/20Q5 






2431 




DC 




WDCNT 






2432 




DC 











2433 




BSI 


L 


LJO 




QHfcCK PRINT STSTUS 


2434 




DC 




/roos 






2435 




LDX 


LI 


*■# 




RESTQRE INDEX REGS, 


2436 


SVXRl 


Equ 




*■! 






2437 




LDX 


L2 


*»* 






2438 


SVXR2 


ECU 




*■! 






2439 




UDX 


L3 


*»* 






2440 


SVXR3 


EQU 




*«1 






2441 




3SC 


I 


PRINT 




§XJT 


2442 


CP02 


DC 




**# 




SAV'EQ CHARACTER 


2443 
2444 


* 


this 


ROUTTNE CON' 


>iERYS the Eacioic character 


2445 


* 


POINTED 


AT BY CNVOO* 


2 TQ ASGJJ AND 


2446 


* 


EXITS WITH IT IN 


RA| 




2447 


* 












2448 


CNVOO 


DC 




*m* 




ENIRY 


2449 




LD 


L 


*m* 




SET DATA WORD 


2450 




SRA 




8 




MA*E CARACTER 


2451 




MDX 


L 


CNV00+2,. 


1 


ADJ. WORD ADDRESS 


2452 




LDX 


1 


8 






2453 


CNVOl 


CMP 


LI 


CNVTl-i 




COMPARE TO ALPHA 


2454 




MDX 




CNV07 




TO SWITCH ROUTINE 


2455 




MDX 




* 






2456 




MDX 


1 


-1 






2457 




MDX 




CMVQ1 




COMPARE LOOP 


2458 




LDX 


1 


H 






2459 




sfo 




CMVT4 




SAVE DATA 



^ 





SElfE 


42 






2460 


CNV02 


LD 


LI 


CNVT3 


TEST FOR SPEC, CHAR, 


2461 




SRA 




8 




2462 
2463 




S 
BSC 


L 


CNVT4 
CNVQ4,*- 


US* SPECIAL CHAR, 


2464 
2465 




MDX 
MDX 


1 


-1 
CMV02 


99, CHAR. LOOP 


*«* ~ *^* "^ 

2466 


CNVQ3 


LD 




C^VT3 


GENERATE SPACE 


2467 




MDX 




CMVQ5 




2468 


CNV04 


LD 


LI 


CNVT3 


SET SPEC CHAR. 


2469 


CNV'05 


AND 




CMVCl 


/FK QgT CHARACTER 


2470 


CNV06 


8SC 


I 


CHVOO 


EXIT 


2471 


CNV07 


3SC 


11 


CNVT2-1 


TO ROUTINE 


2472 


CNV08 


S 




CNVC2 


fl FOR J-R 


2473 




MDX 




CJV06 




2474 


CNV09 


S 




CHVC3 


/F FOR S-Z 


2475 




MDX 




CMV06 




2476 


CNViO 


3 




C"JVC4 


/4U FOR 0"9 


2477 




MDX 




CNV06 




2478 


CNVC1 


DC 




/FF 




2479 


CMVC2 


DC 




/7 




2480 


CNVC3 


DC 




/P 




2481 


CNVC4 


DC 




/40 




2482 


CNVTl 


DC 




/CO 


A •! 


2483 




DC 




/C9 


1 


2484 




DC 




/DO 


4 "1 


2485 




DC 




/D9 


R 


2486 




DC 




/SI 


S •! 


2487 




DC 




/E9 


1 


2488 




DC 




/6F 


*1 


2489 




DC 




/F9 


9 


2490 


CMVT2 


DC 




CNV06 


A«i 


2491 




DC 




CMVQ3 


SPACf 


2492 




DC 




C^jV08 


J«R 


2493 




DC 




OJVQ3 


SPACIt 


2494 




DC 




OJV09 


$•* 


2495 




DC 




CNV03 


|PAC| 


2496 




DC 




CMV10 


o«v 


2497 




DC 




CNV03 


SPACI 


2498 


CNVT3 


DC 




/40A0 


SPACf 


2499 




DC 




/4BAE 


1 


2500 




DC 




/4DA8 


< 


2501 




DC 




/4EA8 


♦ 


2502 




DC 




/5BA4 


S 


2503 




DC 




/5CAA 


* 


2504 




DC 




/5DA9 


) 


2505 




DC 




/60AD 


* 


2506 




DC 




/61AF 


/ 


2507 




DC 




/68AC 


1 


2508 




DC 




/7DA7 


* 


2509 




DC 




/7EBD 


• 


2510 
2511 


CNVT4 


DC 
3SS 




OVERL-*+320*4 


TgMP. AREA 
PHASI-2Q PATCH AREA 



I 



